* autoscan.pl: Don't use `defined' to check whether an array is

defined.
Don't use parens with `defined'.

diff --git a/ChangeLog b/ChangeLog
index 3f8d7f618e866855c4307ac5daab178b08d05ef3..a0986480843bf0256d7cd1a25982ca213740e85f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-01-23  Akim Demaille  <akim@epita.fr>
+
+       * autoscan.pl: Don't use `defined' to check whether an array is
+       defined.
+       Don't use parens with `defined'.
+
 2001-01-23  Akim Demaille  <akim@epita.fr>
 
        * acgeneral.m4 (_AC_INIT_PREPARE): Be sure to quote hashes to

diff --git a/autoscan.in b/autoscan.in
index 56240549e286cc32975998debdfef12194185df0..cd94f9844f55b13783ce8d8ac92ccac0336883e7 100644 (file)
--- a/autoscan.in
+++ b/autoscan.in
@@ -139,7 +139,7 @@ Try `$me --help' for more information.\n"
     if (@ARGV > 1);
   ($srcdir) = @ARGV;
   $srcdir = "."
-    if !defined($srcdir);
+    if !defined $srcdir;
 
   print "srcdir=$srcdir\n" if $verbose;
   chdir $srcdir || die "$me: cannot cd to $srcdir: $!\n";
@@ -299,12 +299,12 @@ sub scan_c_file
       while (s/\b([a-zA-Z_]\w*)\s*\(/ /)
        {
          push (@{$functions{$1}}, "$file:$.")
-           if !defined($c_keywords{$1});
+           if !defined $c_keywords{$1};
        }
       while (s/\b([a-zA-Z_]\w*)\b/ /)
        {
          push (@{$identifiers{$1}}, "$file:$.")
-           if !defined($c_keywords{$1});
+           if !defined $c_keywords{$1};
        }
     }
   close(CFILE);
@@ -460,7 +460,7 @@ sub print_unique
 {
   my ($macro, @where) = @_;
 
-  if (defined($macro) && !defined($printed{$macro}))
+  if (defined $macro && !defined $printed{$macro})
     {
       print CONF "$macro\n";
       $printed{$macro} = 1;
@@ -506,7 +506,7 @@ sub output_headers
   print CONF "\n# Checks for header files.\n";
   foreach $word (sort keys %headers)
     {
-      if (defined($headers_macros{$word}) &&
+      if (defined $headers_macros{$word} &&
          $headers_macros{$word} eq 'AC_CHECK_HEADERS')
        {
          push(@have_headers, $word);
@@ -517,7 +517,7 @@ sub output_headers
        }
     }
   print CONF "AC_CHECK_HEADERS([" . join(' ', sort(@have_headers)) . "])\n"
-    if defined(@have_headers);
+    if @have_headers;
 }
 
 sub output_identifiers
@@ -528,7 +528,7 @@ sub output_identifiers
   print CONF "\n# Checks for typedefs, structures, and compiler characteristics.\n";
   foreach $word (sort keys %identifiers)
     {
-      if (defined ($identifiers_macros{$word}) &&
+      if (defined $identifiers_macros{$word} &&
          $identifiers_macros{$word} eq 'AC_CHECK_TYPES')
        {
          push (@have_types, $word);
@@ -539,7 +539,7 @@ sub output_identifiers
        }
     }
   print CONF "AC_CHECK_TYPES([" . join(', ', sort(@have_types)) . "])\n"
-    if defined (@have_types);
+    if @have_types;
 }
 
 sub output_functions
@@ -550,18 +550,18 @@ sub output_functions
   print CONF "\n# Checks for library functions.\n";
   foreach $word (sort keys %functions)
     {
-      if (defined($functions_macros{$word}) &&
+      if (defined $functions_macros{$word} &&
          $functions_macros{$word} eq 'AC_CHECK_FUNCS')
        {
          push(@have_funcs, $word);
        }
       else
        {
-         &print_unique($functions_macros{$word}, @{$functions{$word}});
+         &print_unique ($functions_macros{$word}, @{$functions{$word}});
        }
     }
   print CONF "AC_CHECK_FUNCS([" . join(' ', sort(@have_funcs)) . "])\n"
-    if defined(@have_funcs);
+    if @have_funcs;
 }
 
 

diff --git a/autoscan.pl b/autoscan.pl
index 56240549e286cc32975998debdfef12194185df0..cd94f9844f55b13783ce8d8ac92ccac0336883e7 100644 (file)
--- a/autoscan.pl
+++ b/autoscan.pl
@@ -139,7 +139,7 @@ Try `$me --help' for more information.\n"
     if (@ARGV > 1);
   ($srcdir) = @ARGV;
   $srcdir = "."
-    if !defined($srcdir);
+    if !defined $srcdir;
 
   print "srcdir=$srcdir\n" if $verbose;
   chdir $srcdir || die "$me: cannot cd to $srcdir: $!\n";
@@ -299,12 +299,12 @@ sub scan_c_file
       while (s/\b([a-zA-Z_]\w*)\s*\(/ /)
        {
          push (@{$functions{$1}}, "$file:$.")
-           if !defined($c_keywords{$1});
+           if !defined $c_keywords{$1};
        }
       while (s/\b([a-zA-Z_]\w*)\b/ /)
        {
          push (@{$identifiers{$1}}, "$file:$.")
-           if !defined($c_keywords{$1});
+           if !defined $c_keywords{$1};
        }
     }
   close(CFILE);
@@ -460,7 +460,7 @@ sub print_unique
 {
   my ($macro, @where) = @_;
 
-  if (defined($macro) && !defined($printed{$macro}))
+  if (defined $macro && !defined $printed{$macro})
     {
       print CONF "$macro\n";
       $printed{$macro} = 1;
@@ -506,7 +506,7 @@ sub output_headers
   print CONF "\n# Checks for header files.\n";
   foreach $word (sort keys %headers)
     {
-      if (defined($headers_macros{$word}) &&
+      if (defined $headers_macros{$word} &&
          $headers_macros{$word} eq 'AC_CHECK_HEADERS')
        {
          push(@have_headers, $word);
@@ -517,7 +517,7 @@ sub output_headers
        }
     }
   print CONF "AC_CHECK_HEADERS([" . join(' ', sort(@have_headers)) . "])\n"
-    if defined(@have_headers);
+    if @have_headers;
 }
 
 sub output_identifiers
@@ -528,7 +528,7 @@ sub output_identifiers
   print CONF "\n# Checks for typedefs, structures, and compiler characteristics.\n";
   foreach $word (sort keys %identifiers)
     {
-      if (defined ($identifiers_macros{$word}) &&
+      if (defined $identifiers_macros{$word} &&
          $identifiers_macros{$word} eq 'AC_CHECK_TYPES')
        {
          push (@have_types, $word);
@@ -539,7 +539,7 @@ sub output_identifiers
        }
     }
   print CONF "AC_CHECK_TYPES([" . join(', ', sort(@have_types)) . "])\n"
-    if defined (@have_types);
+    if @have_types;
 }
 
 sub output_functions
@@ -550,18 +550,18 @@ sub output_functions
   print CONF "\n# Checks for library functions.\n";
   foreach $word (sort keys %functions)
     {
-      if (defined($functions_macros{$word}) &&
+      if (defined $functions_macros{$word} &&
          $functions_macros{$word} eq 'AC_CHECK_FUNCS')
        {
          push(@have_funcs, $word);
        }
       else
        {
-         &print_unique($functions_macros{$word}, @{$functions{$word}});
+         &print_unique ($functions_macros{$word}, @{$functions{$word}});
        }
     }
   print CONF "AC_CHECK_FUNCS([" . join(' ', sort(@have_funcs)) . "])\n"
-    if defined(@have_funcs);
+    if @have_funcs;
 }
 
 

diff --git a/bin/autoscan.in b/bin/autoscan.in
index 56240549e286cc32975998debdfef12194185df0..cd94f9844f55b13783ce8d8ac92ccac0336883e7 100644 (file)
--- a/bin/autoscan.in
+++ b/bin/autoscan.in
@@ -139,7 +139,7 @@ Try `$me --help' for more information.\n"
     if (@ARGV > 1);
   ($srcdir) = @ARGV;
   $srcdir = "."
-    if !defined($srcdir);
+    if !defined $srcdir;
 
   print "srcdir=$srcdir\n" if $verbose;
   chdir $srcdir || die "$me: cannot cd to $srcdir: $!\n";
@@ -299,12 +299,12 @@ sub scan_c_file
       while (s/\b([a-zA-Z_]\w*)\s*\(/ /)
        {
          push (@{$functions{$1}}, "$file:$.")
-           if !defined($c_keywords{$1});
+           if !defined $c_keywords{$1};
        }
       while (s/\b([a-zA-Z_]\w*)\b/ /)
        {
          push (@{$identifiers{$1}}, "$file:$.")
-           if !defined($c_keywords{$1});
+           if !defined $c_keywords{$1};
        }
     }
   close(CFILE);
@@ -460,7 +460,7 @@ sub print_unique
 {
   my ($macro, @where) = @_;
 
-  if (defined($macro) && !defined($printed{$macro}))
+  if (defined $macro && !defined $printed{$macro})
     {
       print CONF "$macro\n";
       $printed{$macro} = 1;
@@ -506,7 +506,7 @@ sub output_headers
   print CONF "\n# Checks for header files.\n";
   foreach $word (sort keys %headers)
     {
-      if (defined($headers_macros{$word}) &&
+      if (defined $headers_macros{$word} &&
          $headers_macros{$word} eq 'AC_CHECK_HEADERS')
        {
          push(@have_headers, $word);
@@ -517,7 +517,7 @@ sub output_headers
        }
     }
   print CONF "AC_CHECK_HEADERS([" . join(' ', sort(@have_headers)) . "])\n"
-    if defined(@have_headers);
+    if @have_headers;
 }
 
 sub output_identifiers
@@ -528,7 +528,7 @@ sub output_identifiers
   print CONF "\n# Checks for typedefs, structures, and compiler characteristics.\n";
   foreach $word (sort keys %identifiers)
     {
-      if (defined ($identifiers_macros{$word}) &&
+      if (defined $identifiers_macros{$word} &&
          $identifiers_macros{$word} eq 'AC_CHECK_TYPES')
        {
          push (@have_types, $word);
@@ -539,7 +539,7 @@ sub output_identifiers
        }
     }
   print CONF "AC_CHECK_TYPES([" . join(', ', sort(@have_types)) . "])\n"
-    if defined (@have_types);
+    if @have_types;
 }
 
 sub output_functions
@@ -550,18 +550,18 @@ sub output_functions
   print CONF "\n# Checks for library functions.\n";
   foreach $word (sort keys %functions)
     {
-      if (defined($functions_macros{$word}) &&
+      if (defined $functions_macros{$word} &&
          $functions_macros{$word} eq 'AC_CHECK_FUNCS')
        {
          push(@have_funcs, $word);
        }
       else
        {
-         &print_unique($functions_macros{$word}, @{$functions{$word}});
+         &print_unique ($functions_macros{$word}, @{$functions{$word}});
        }
     }
   print CONF "AC_CHECK_FUNCS([" . join(' ', sort(@have_funcs)) . "])\n"
-    if defined(@have_funcs);
+    if @have_funcs;
 }