changeset 16792:c75a91e0cad0

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
author Jim Meyering <meyering@redhat.com>
date Thu, 19 Apr 2012 16:39:12 +0200
parents fe28450d9bf2
children b4a006114483
files ChangeLog build-aux/announce-gen
diffstat 2 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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
--- a/build-aux/announce-gen
+++ b/build-aux/announce-gen
@@ -3,7 +3,7 @@
     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 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|.*/||;