From: Alexandre Duret-Lutz <adl@gnu.org>
Date: Mon, 19 Nov 2001 12:32:37 +0000 (+0000)
Subject: * automake.in (scan_texinfo_file): Suppress FIXME about strange
X-Git-Tag: Release-1-5b~18
X-Git-Url: https://sourceware.org/git/?a=commitdiff_plain;h=9f79481fb42bd82d8a6882c55709c04257a96cd0;p=automake.git

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

diff --git a/ChangeLog b/ChangeLog
index 5fe41e69..46041b48 100644
--- 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 6e3249d5..d01c8c1d 100755
--- 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));
 }