Implementing Jim's suggestions.
>From 3e6c32b5834341ee8d1870f7b85db546b1a1f2d8 Mon Sep 17 00:00:00 2001
From: Reuben Thomas <r...@sc3d.org>
Date: Tue, 20 Mar 2012 20:17:22 +0000
Subject: [PATCH] announce-gen: make it use Digest::SHA where available.
* build-aux/announce-gen: Use either Digest::SHA1 or Digest::SHA
according to availability thereof.
---
ChangeLog | 6 ++++++
build-aux/announce-gen | 5 +++--
2 files changed, 9 insertions(+), 2 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 7b67d0f..29a0e09 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2012-03-20 Reuben Thomas <r...@sc3d.org>
+
+ announce-gen: make it use Digest::SHA where available.
+ * build-aux/announce-gen: Use either Digest::SHA1 or Digest::SHA
+ according to availability thereof.
+
2012-03-20 Jim Meyering <meyer...@redhat.com>
tests: avoid gcc warnings about argv vs. const initializers
diff --git a/build-aux/announce-gen b/build-aux/announce-gen
index 3ca90a9..b9c9360 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|.*/||;
--
1.7.9.1
--
http://rrt.sc3d.org/
