From c32c6d98aa77f143886ae7a4526d10c0d1c32887 Mon Sep 17 00:00:00 2001 From: Reuben Thomas Date: Tue, 20 Mar 2012 20:17:22 +0000 Subject: announce-gen: use Digest::SHA when possible * build-aux/announce-gen: Use Digest::SHA when possible, falling back to Digest::SHA1 if necessary. --- build-aux/announce-gen | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'build-aux/announce-gen') diff --git a/build-aux/announce-gen b/build-aux/announce-gen index 3ca90a9a08..b9c9360a73 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-01-06 07:46'; # UTC +my $VERSION = '2012-03-20 23:17'; # 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 @@ -30,7 +30,8 @@ use strict; use Getopt::Long; use Digest::MD5; -use Digest::SHA1; +eval { require Digest::SHA; } + or eval { use Digest::SHA1; }; use POSIX qw(strftime); (my $ME = $0) =~ s|.*/||; -- cgit v1.2.1