Re: autoscan &wanted

[Akim Demaille]

Thanks, I've applied a silently modified version of your patch.

Index: ChangeLog
from  Akim Demaille  <address@hidden>

        * autoscan.in (&scan_file): Skip FILE if there is FILE.in.
        From Jens Petersen.


Index: autoscan.in
===================================================================
RCS file: /cvs/autoconf/autoscan.in,v
retrieving revision 1.55
diff -u -u -r1.55 autoscan.in
--- autoscan.in 2001/07/03 14:11:06 1.55
+++ autoscan.in 2001/07/04 07:44:18
@@ -386,27 +386,25 @@
 # the current directory of the walk through.
 sub scan_file ()
 {
+  # Wanted only if there is no corresponding FILE.in.
+  return
+    if -f "$_.in";
+
   # Save $_ as Find::File requires it to be preserved.
   my $underscore = $_;
 
   # Strip a useless leading `./'.
   $File::Find::name =~ s,^\./,,;
 
-  if (/^.*\.[chlymC]$/ || /^.*\.cc$/)
+  if (/\.[chlymC](\.in)?$/ || /\.cc(\.in)?$/)
     {
       scan_c_file ($_);
-    }
-  elsif (/^[Mm]akefile$/ || /^GNUmakefile$/)
-    {
-      # Wanted only if there is no corresponding Makefile.in.
-      scan_makefile ($_)
-       if ! -f "$_.in";
     }
-  elsif (/^[Mm]akefile\.in$/)
+  elsif (/^[Mm]akefile(\.in)?$/ || /^GNUmakefile(\.in)?$/)
     {
       scan_makefile ($_);
     }
-  elsif (/^.*\.sh$/)
+  elsif (/\.sh(\.in)?$/)
     {
       scan_sh_file ($_);
     }