* automake.in (scan_texinfo_file): Suppress FIXME about strange

map behavior.

diff --git a/ChangeLog b/ChangeLog
index 5fe41e690e850e2dd077b44aed5fc69722d76196..46041b4875e8597054916ea824ed8758e7921b1e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-19  Alexandre Duret-Lutz  <duret_g@epita.fr>
+
+       * automake.in (scan_texinfo_file): Suppress FIXME about strange
+       map behavior.
+
 2001-11-19  Alexandre Duret-Lutz  <duret_g@epita.fr>
 
        * tests/defs (aclocaldir): Check for existence of libtool.m4 and

diff --git a/automake.in b/automake.in
index 6e3249d5c3a638306fbca859c27de2505f41de39..d01c8c1ddd7468f61b6beaf66a4b5c6c6ecb64dd 100755 (executable)
--- a/automake.in
+++ b/automake.in
@@ -2990,8 +2990,7 @@ sub scan_texinfo_file
 
     my $infobase = basename ($filename);
     $infobase =~ s/\.te?xi(nfo)?$//;
-    # FIXME: I don't understand why, but I can't use "$infobase.$_" => 1.
-    my %clean_files = map { "$infobase" . ".$_" => 1 } @clean_suffixes;
+    my %clean_files = map { +"$infobase.$_" => 1 } @clean_suffixes;
     grep { delete $clean_files{"$infobase.$_"} } @syncodeindexes;
     return ($outfile, $vfile, (sort keys %clean_files));
 }