announce-gen (get_tool_versions): Accept .xz tarballs.

diff --git a/ChangeLog b/ChangeLog
index 05a3ad5ee12b8f6cdfddde6d1dacdc9a1fd262bd..323c92c53b2548a4598baef2bf6a60539c626825 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-12-08  Jim Meyering  <meyering@redhat.com>
+
+       * build-aux/announce-gen (get_tool_versions): Accept .xz tarballs.
+
 2008-12-07  Bruno Haible  <bruno@clisp.org>
 
        * tests/test-lock.c (test_lock, test_rwlock, test_recursive_lock,

diff --git a/build-aux/announce-gen b/build-aux/announce-gen
index 78ca62551daeed3257bb11e64dba64639745c3f7..d1a4b255ae9d01fc9f4033bcf135bca36e465ff5 100755 (executable)
--- a/build-aux/announce-gen
+++ b/build-aux/announce-gen
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 # Generate a release announcement message.
 
-my $VERSION = '2008-10-10 05:12'; # UTC
+my $VERSION = '2008-12-02 16:28'; # 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
@@ -429,11 +429,13 @@ sub get_tool_versions ($$)
   my $tgz = "$my_distdir.tar.gz";
   my $tbz = "$my_distdir.tar.bz2";
   my $lzma = "$my_distdir.tar.lzma";
+  my $xz = "$my_distdir.tar.xz";
+
   my $xd = "$package_name-$prev_version-$curr_version.xdelta";
 
-  my @tarballs = grep {-f $_} ($tgz, $tbz, $lzma);
+  my @tarballs = grep {-f $_} ($tgz, $tbz, $lzma, $xz);
   @tarballs
-    or die "$ME: none of $tgz, $tbz, or $lzma were found\n";
+    or die "$ME: none of $tgz, $tbz, $lzma or $xz were found\n";
   my @sizable = @tarballs;
   -f $xd
     and push @sizable, $xd;