From a8bc28b1134a2cf890ced48cfbe5b5b4792318b0 Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Thu, 19 Apr 2012 16:39:12 +0200 Subject: [PATCH] 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 --- ChangeLog | 7 +++++++ build-aux/announce-gen | 4 ++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 693ad2459..f70616707 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,12 @@ 2012-04-19 Jim Meyering + 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 b9c9360a7..8c6ed3682 100755 --- 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|.*/||; -- 2.11.0