01-fyi-autoscan-used.patch~

[Akim Demaille]

Index: ChangeLog
from  Akim Demaille  <address@hidden>
        
        * bin/autoscan.in (scan_file): Use `used'.
        
Index: bin/autoscan.in
--- bin/autoscan.in Sun, 25 Nov 2001 22:59:32 +0100 akim
+++ bin/autoscan.in Sat, 05 Jan 2002 10:40:09 +0100 akim
@@ -188,7 +188,7 @@ sub init_tables ()
 
 # used($KIND, $WORD, [$WHERE])
 # ----------------------------
-# $WORD is used in $KIND.
+# $WORD is used as a $KIND.
 sub used ($$;$)
 {
   my ($kind, $word, $where) = @_;
@@ -359,12 +359,12 @@ sub scan_file ()
 
   if (/\.[chlym](\.in)?$/)
     {
-      push (@{$used{'programs'}{"cc"}}, $File::Find::name);
+      used 'programs', 'cc';
       scan_c_file ($_);
     }
   elsif (/\.(cc|cpp|cxx|CC|C|hh|hpp|hxx|HH|H|yy|ypp|ll|lpp)(\.in)?$/)
     {
-      push (@{$used{'programs'}{"c++"}}, $File::Find::name);
+      used 'programs', 'c++';
       scan_c_file ($_);
     }
   elsif (/^[Mm]akefile(\.in)?$/ || /^GNUmakefile(\.in)?$/)