* bin/autoscan.in (scan_file): Use `&used'.

diff --git a/ChangeLog b/ChangeLog
index 5dd2983b4872b7e3a67503abb184a0e23f26b05e..4bb1faac4746550bbff671209c2a2cc95a42634c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-06  Akim Demaille  <akim@epita.fr>
+
+       * bin/autoscan.in (scan_file): Use `&used'.
+
 2002-01-03  Akim Demaille  <akim@epita.fr>
 
        * doc/autoconf.texi (Output): Improved wording regarding use of

diff --git a/bin/autoscan.in b/bin/autoscan.in
index 06a124d73837d72ebca1ced69a87076bf177bee4..3f3fc7666fd91897158180c76e9da79712b83564 100644 (file)
--- a/bin/autoscan.in
+++ b/bin/autoscan.in
@@ -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)?$/)

diff --git a/man/autoscan.1 b/man/autoscan.1
index 3064d844e9f879e1f7446054491fb76c1912e4ff..510689003b46ef3f4649fbe42a79d5feb153c4ee 100644 (file)
--- a/man/autoscan.1
+++ b/man/autoscan.1
@@ -1,5 +1,5 @@
-.\" DO NOT MODIFY THIS FILE!  It was generated by help2man 1.24.
-.TH AUTOSCAN "1" "November 2001" "GNU Autoconf 2.52g" FSF
+.\" DO NOT MODIFY THIS FILE!  It was generated by help2man 1.25.
+.TH AUTOSCAN "1" "January 2002" "autoscan 2.52g" "User Commands"
 .SH NAME
 autoscan \- Generate a preliminary configure.in
 .SH SYNOPSIS