From: Reuben Thomas <rrt@sc3d.org>
Date: Tue, 20 Mar 2012 20:17:22 +0000 (+0000)
Subject: announce-gen: use Digest::SHA when possible
X-Git-Tag: v0.1~815
X-Git-Url: http://erislabs.net/gitweb/?p=gnulib.git;a=commitdiff_plain;h=c32c6d98aa77f143886ae7a4526d10c0d1c32887

announce-gen: use Digest::SHA when possible

* build-aux/announce-gen: Use Digest::SHA when possible, falling
back to Digest::SHA1 if necessary.
---

diff --git a/ChangeLog b/ChangeLog
index 7b67d0f60..0076e06dc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2012-03-20  Reuben Thomas  <rrt@sc3d.org>
+
+	announce-gen: use Digest::SHA when possible
+	* build-aux/announce-gen: Use Digest::SHA when possible, falling
+	back to Digest::SHA1 if necessary.
+
 2012-03-20  Jim Meyering  <meyering@redhat.com>
 
 	tests: avoid gcc warnings about argv vs. const initializers
diff --git a/build-aux/announce-gen b/build-aux/announce-gen
index 3ca90a9a0..b9c9360a7 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|.*/||;