Upgrade to Digest-1.16
authorGisle Aas <gisle@aas.no>
Tue, 9 Jun 2009 21:08:52 +0000 (23:08 +0200)
committerDavid Mitchell <davem@iabyn.com>
Fri, 12 Jun 2009 14:20:43 +0000 (15:20 +0100)
(cherry picked from commit 23be15b77e2382b66e19a2a0e78485dc017fdd3c)

lib/Digest.pm
lib/Digest/Changes
lib/Digest/base.pm
lib/Digest/file.pm

index 98102ae..384dfc8 100644 (file)
@@ -3,10 +3,10 @@ package Digest;
 use strict;
 use vars qw($VERSION %MMAP $AUTOLOAD);
 
-$VERSION = "1.15";
+$VERSION = "1.16";
 
 %MMAP = (
-  "SHA-1"      => ["Digest::SHA1", ["Digest::SHA", 1], ["Digest::SHA2", 1]],
+  "SHA-1"      => [["Digest::SHA", 1], "Digest::SHA1", ["Digest::SHA2", 1]],
   "SHA-224"    => [["Digest::SHA", 224]],
   "SHA-256"    => [["Digest::SHA", 256], ["Digest::SHA2", 256]],
   "SHA-384"    => [["Digest::SHA", 384], ["Digest::SHA2", 384]],
@@ -16,6 +16,7 @@ $VERSION = "1.15";
   "CRC-16"     => [["Digest::CRC", type => "crc16"]],
   "CRC-32"     => [["Digest::CRC", type => "crc32"]],
   "CRC-CCITT"  => [["Digest::CRC", type => "crcccitt"]],
+  "RIPEMD-160" => "Crypt::PIPEMD160",
 );
 
 sub new
index f99b41b..be5a3de 100644 (file)
@@ -1,4 +1,18 @@
-2006-13-20   Gisle Aas <gisle@ActiveState.com>
+2009-06-09   Gisle Aas <gisle@ActiveState.com>
+
+   Release 1.16.
+
+   Gisle Aas (3):
+      For SHA-1 try Digest::SHA before tryign Digest::SHA1 as suggested by Adam Trickett
+      Support Digest->new("RIPEMD-160") as suggested by Zefram
+      Use 3-arg open for fewer surprises
+
+   Jarkko Hietaniemi (1):
+      Sync up with EBCDIC changes from core perl.
+
+
+
+2006-03-20   Gisle Aas <gisle@ActiveState.com>
 
    Release 1.15.
 
index cb336c2..b2844ba 100644 (file)
@@ -2,7 +2,7 @@ package Digest::base;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = "1.00";
+$VERSION = "1.16";
 
 # subclass is supposed to implement at least these
 sub new;
index 67985fd..3b86e63 100644 (file)
@@ -8,7 +8,7 @@ use Digest ();
 
 use vars qw($VERSION @ISA @EXPORT_OK);
 
-$VERSION = "1.00";
+$VERSION = "1.16";
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(digest_file_ctx digest_file digest_file_hex digest_file_base64);
 
@@ -16,7 +16,7 @@ sub digest_file_ctx {
     my $file = shift;
     croak("No digest algorithm specified") unless @_;
     local *F;
-    open(F, $file) || croak("Can't open '$file': $!");
+    open(F, "<", $file) || croak("Can't open '$file': $!");
     binmode(F);
     my $ctx = Digest->new(@_);
     $ctx->addfile(*F);