From b9247a2ace8272908e3e45dab6c219927e2a939c Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Wed, 2 Dec 1998 11:55:26 +0000 Subject: [PATCH] =?utf8?q?=09Some=20bugs=20from=20Fran=E7ois=20Pinard:=20?= =?utf8?q?=09*=20automake.in=20(usage):=20Remove=20duplicates=20in=20file?= =?utf8?q?=20list.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- ChangeLog | 3 +++ automake.in | 10 ++++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 37b57351..25bb7a2b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 1998-12-02 Tom Tromey + Some bugs from François Pinard: + * automake.in (usage): Remove duplicates in file list. + * automake.in (usage): Print files in column-major order. (handle_gettext): Only require ABOUT-NLS for GNU programs. diff --git a/automake.in b/automake.in index ddcc828c..d0d42350 100755 --- a/automake.in +++ b/automake.in @@ -7062,9 +7062,15 @@ sub usage print $USAGE; print "\nFiles which are automatically distributed, if found:\n"; $~ = "USAGE_FORMAT"; - local (@lcomm) = sort ((@common_files, @common_sometimes)); - local ($one, $two, $three, $four, $i, $max); + local ($last, $iter, @lcomm); + $last = ''; + foreach $iter (sort ((@common_files, @common_sometimes))) + { + push (@lcomm, $iter) unless $iter eq $last; + $last = $iter; + } + local ($one, $two, $three, $four, $i, $max); $max = int (($#lcomm + 1) / 4); for ($i = 0; $i < $max; ++$i) -- 2.43.5