announce-gen: avoid failure due to lack of Digest::SHA1

Even with the preferred Digest::SHA available, this script
would fail when the backup module, Digest::SHA1, was not installed.
* build-aux/announce-gen: Quote the conditional use of "use".
Reported by Reuben Thomas in:
http://thread.gmane.org/gmane.comp.lib.gnulib.bugs/30444

diff --git a/ChangeLog b/ChangeLog
index 693ad24..f706167 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
 2012-04-19  Jim Meyering  <meyering@redhat.com>
 
+       announce-gen: avoid failure due to lack of Digest::SHA1
+       Even with the preferred Digest::SHA available, this script
+       would fail when the backup module, Digest::SHA1, was not installed.
+       * build-aux/announce-gen: Quote the conditional use of "use".
+       Reported by Reuben Thomas in:
+       http://thread.gmane.org/gmane.comp.lib.gnulib.bugs/30444
+
        bootstrap: don't let a user's CDPATH setting affect this script
        When CDPATH is set, cd will sometimes generate output.
        When "cd" is run in a subshell whose output matters, that

diff --git a/build-aux/announce-gen b/build-aux/announce-gen
index b9c9360..8c6ed36 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 = '2012-03-20 23:17'; # UTC
+my $VERSION = '2012-04-19 14:36'; # 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
@@ -31,7 +31,7 @@ use strict;
 use Getopt::Long;
 use Digest::MD5;
 eval { require Digest::SHA; }
-  or eval { use Digest::SHA1; };
+  or eval 'use Digest::SHA1';
 use POSIX qw(strftime);
 
 (my $ME = $0) =~ s|.*/||;