announce-gen: cosmetic improvement

* build-aux/announce-gen: Strip any leading ./ from the NEWS file name.

diff --git a/ChangeLog b/ChangeLog
index cbd314e4b99f084ece8aaa65430253ab61227fdd..b4b66967042488d6a1234dd17119ad49621dc9c2 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-29  Reuben Thomas  <rrt@sc3d.org>
+
+       announce-gen: cosmetic improvement
+       * build-aux/announce-gen: Strip any leading ./ from the NEWS file name.
+
 2011-04-29  Jim Meyering  <meyering@redhat.com>
 
        vc-list-files: indent with spaces, not TABs

diff --git a/build-aux/announce-gen b/build-aux/announce-gen
index 7adfef21888438f9615129eb259447315b3e9aa7..233ee9b95985fecf83e6875982673d1514b25fb8 100755 (executable)
--- a/build-aux/announce-gen
+++ b/build-aux/announce-gen
@@ -3,7 +3,7 @@ eval '(exit $?0)' && eval 'exec perl -wS "$0" ${1+"$@"}'
     if 0;
 # Generate a release announcement message.
 
-my $VERSION = '2011-04-29 19:58'; # UTC
+my $VERSION = '2011-04-29 21:01'; # UTC
 # The definition above must lie within the first 8 lines in order
 # for the Emacs time-stamp write hook (at end) to update it.
 # If you change this file with Emacs, please let the write hook
@@ -180,7 +180,10 @@ sub print_news_deltas ($$$)
 {
   my ($news_file, $prev_version, $curr_version) = @_;
 
-  print "\n$news_file\n\n";
+  my $news_name = $news_file;
+  $news_name =~ s|^\./||;
+
+  print "\n$news_name\n\n";
 
   # Print all lines from $news_file, starting with the first one
   # that mentions $curr_version up to but not including