Upgrade Digest-SHA to 5.71.
authorAbigail <abigail@abigail.be>
Tue, 13 Mar 2012 18:46:56 +0000 (19:46 +0100)
committerAbigail <abigail@abigail.be>
Tue, 13 Mar 2012 18:46:56 +0000 (19:46 +0100)
15 files changed:
Porting/Maintainers.pl
cpan/Digest-SHA/Changes
cpan/Digest-SHA/README
cpan/Digest-SHA/lib/Digest/SHA.pm
cpan/Digest-SHA/shasum
cpan/Digest-SHA/src/hmac.c
cpan/Digest-SHA/src/hmac.h
cpan/Digest-SHA/src/sha.c
cpan/Digest-SHA/src/sha.h
cpan/Digest-SHA/t/base64.t
cpan/Digest-SHA/t/dumpload.t
cpan/Digest-SHA/t/fips180-4.t
cpan/Digest-SHA/t/sha384.t
cpan/Digest-SHA/t/sha512.t
cpan/Digest-SHA/t/woodbury.t

index efed00b..05102c2 100755 (executable)
@@ -577,7 +577,7 @@ use File::Glob qw(:case);
 
     'Digest::SHA' => {
         'MAINTAINER'   => 'mshelor',
-        'DISTRIBUTION' => 'MSHELOR/Digest-SHA-5.70.tar.gz',
+        'DISTRIBUTION' => 'MSHELOR/Digest-SHA-5.71.tar.gz',
         'FILES'        => q[cpan/Digest-SHA],
         'EXCLUDED'     => [
             qw( t/pod.t
index 56d42b5..5f9d1cc 100644 (file)
@@ -1,5 +1,10 @@
 Revision history for Perl extension Digest::SHA.
 
+5.71  Wed Feb 29 04:06:10 MST 2012
+       - prevented $! from getting clobbered in _bail() routine
+               -- thanks to Zefram for patch
+       - added example of BITS mode usage to shasum documentation
+
 5.70  Wed Dec 14 02:32:10 MST 2011
        - added BITS mode to addfile method and shasum
                -- partial-byte inputs now possible via files/STDIN
index a8703a8..2478b1e 100644 (file)
@@ -1,4 +1,4 @@
-Digest::SHA version 5.70
+Digest::SHA version 5.71
 ========================
 
 Digest::SHA is a complete implementation of the NIST Secure Hash
@@ -34,7 +34,7 @@ DEPENDENCIES
 
 COPYRIGHT AND LICENSE
 
-Copyright (C) 2003-2011 Mark Shelor
+Copyright (C) 2003-2012 Mark Shelor
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.
index 0f6338b..d8cc561 100644 (file)
@@ -7,7 +7,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 use Fcntl;
 use integer;
 
-$VERSION = '5.70';
+$VERSION = '5.71';
 
 require Exporter;
 require DynaLoader;
@@ -89,8 +89,9 @@ sub add_bits {
 sub _bail {
        my $msg = shift;
 
+       $msg .= ": $!";
         require Carp;
-        Carp::croak("$msg: $!");
+        Carp::croak($msg);
 }
 
 sub _addfile {  # this is "addfile" from Digest::base 1.00
@@ -706,7 +707,7 @@ darkness and moored it in so perfect a calm and in so brilliant a light"
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2003-2011 Mark Shelor
+Copyright (C) 2003-2012 Mark Shelor
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.
index 344e8e1..d75815a 100644 (file)
@@ -2,14 +2,15 @@
 
        ## shasum: filter for computing SHA digests (ref. sha1sum/md5sum)
        ##
-       ## Copyright (C) 2003-2011 Mark Shelor, All Rights Reserved
+       ## Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
        ##
-       ## Version: 5.70
-       ## Wed Dec 14 02:32:10 MST 2011
+       ## Version: 5.71
+       ## Wed Feb 29 04:06:10 MST 2012
 
        ## shasum SYNOPSIS adapted from GNU Coreutils sha1sum.
-       ## Include an "-a" option for algorithm selection, and a
-       ## "-p" option for portable digest computation.
+       ## Add an "-a" option for algorithm selection, a "-p"
+       ## option for portable digest computation, and a "-0"
+       ## option for reading bit strings.
 
 my $POD = <<'END_OF_POD';
 
@@ -26,13 +27,13 @@ shasum - Print or Check SHA Checksums
    -a, --algorithm   1 (default), 224, 256, 384, 512, 512224, 512256
    -b, --binary      read in binary mode
    -c, --check       read SHA sums from the FILEs and check them
+   -t, --text        read in text mode (default)
    -p, --portable    read in portable mode
                          produces same digest on Windows/Unix/Mac
    -0, --01          read in BITS mode
                          ASCII '0' interpreted as 0-bit,
                          ASCII '1' interpreted as 1-bit,
                          all other characters ignored
-   -t, --text        read in text mode (default)
 
  The following two options are useful only when verifying checksums:
    -s, --status      don't output anything, status code shows success
@@ -72,9 +73,16 @@ Since I<shasum> mimics the behavior of the combined GNU I<sha1sum>,
 I<sha224sum>, I<sha256sum>, I<sha384sum>, and I<sha512sum> programs,
 you can install this script as a convenient drop-in replacement.
 
+Unlike the GNU programs, I<shasum> encompasses the full SHA standard by
+allowing partial-byte inputs.  This is accomplished through the BITS
+option (I<-0>).  The following example computes the SHA-224 digest of
+the 7-bit message I<0001100>:
+
+       perl -e "print qq(0001100)" | shasum -0 -a 224
+
 =head1 AUTHOR
 
-Copyright (c) 2003-2011 Mark Shelor <mshelor@cpan.org>.
+Copyright (c) 2003-2012 Mark Shelor <mshelor@cpan.org>.
 
 =head1 SEE ALSO
 
@@ -89,7 +97,7 @@ use strict;
 use Fcntl;
 use Getopt::Long;
 
-my $VERSION = "5.70";
+my $VERSION = "5.71";
 
 
        ## Try to use Digest::SHA.  If not installed, use the slower
index c820bc5..5d782ac 100644 (file)
@@ -3,10 +3,10 @@
  *
  * Ref: FIPS PUB 198 The Keyed-Hash Message Authentication Code
  *
- * Copyright (C) 2003-2011 Mark Shelor, All Rights Reserved
+ * Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
  *
- * Version: 5.70
- * Wed Dec 14 02:32:10 MST 2011
+ * Version: 5.71
+ * Wed Feb 29 04:06:10 MST 2012
  *
  */
 
index 757c052..ce59277 100644 (file)
@@ -3,10 +3,10 @@
  *
  * Ref: FIPS PUB 198 The Keyed-Hash Message Authentication Code
  *
- * Copyright (C) 2003-2011 Mark Shelor, All Rights Reserved
+ * Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
  *
- * Version: 5.70
- * Wed Dec 14 02:32:10 MST 2011
+ * Version: 5.71
+ * Wed Feb 29 04:06:10 MST 2012
  *
  */
 
index cfec4db..4aaba5f 100644 (file)
@@ -3,10 +3,10 @@
  *
  * Ref: NIST FIPS PUB 180-2 Secure Hash Standard
  *
- * Copyright (C) 2003-2011 Mark Shelor, All Rights Reserved
+ * Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
  *
- * Version: 5.70
- * Wed Dec 14 02:32:10 MST 2011
+ * Version: 5.71
+ * Wed Feb 29 04:06:10 MST 2012
  *
  */
 
index 048044b..1c80dbc 100644 (file)
@@ -3,10 +3,10 @@
  *
  * Ref: NIST FIPS PUB 180-2 Secure Hash Standard
  *
- * Copyright (C) 2003-2011 Mark Shelor, All Rights Reserved
+ * Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
  *
- * Version: 5.70
- * Wed Dec 14 02:32:10 MST 2011
+ * Version: 5.71
+ * Wed Feb 29 04:06:10 MST 2012
  *
  */
 
index 56a24d7..2cafdbd 100644 (file)
@@ -31,7 +31,7 @@ while (@out) {
        unless ($skip) {
                print "not " unless &$fcn($in) eq $rsp;
        }
-       print "ok ", $testnum++, $skip ? " # skip: no 64 bit" : "", "\n";
+       print "ok ", $testnum++, $skip ? " # skip: no 64-bit" : "", "\n";
 }
 
 __DATA__
index 24cea54..a1f1cf4 100644 (file)
@@ -51,7 +51,7 @@ while (@sharsp) {
        if ($alg == 384) { $skip = sha384_hex("") ? 0 : 1 }
        if ($alg == 512) { $skip = sha512_hex("") ? 0 : 1 }
        if ($skip) {
-               print "ok ", $testnum++, " # skip: no 64 bit\n";
+               print "ok ", $testnum++, " # skip: no 64-bit\n";
                next;
        }
        my $digest;
index 5155089..78feb8d 100644 (file)
@@ -31,7 +31,7 @@ for (1 .. $numtests) {
                        sha512224_hex($data) : sha512256_hex($data);
                print "not " unless $rsp eq $digest;
        }
-       print "ok ", $_, $skip ? " # skip: no 64 bit" : "", "\n";
+       print "ok ", $_, $skip ? " # skip: no 64-bit" : "", "\n";
 }
 
 __DATA__
index f275bba..9d026ae 100644 (file)
@@ -29,7 +29,7 @@ for (1 .. $numtests) {
        unless ($skip) {
                print "not " unless sha384_hex($data) eq $digest;
        }
-       print "ok ", $_, $skip ? " # skip: no 64 bit" : "", "\n";
+       print "ok ", $_, $skip ? " # skip: no 64-bit" : "", "\n";
 }
 
 __DATA__
index 4b65412..fcfe766 100644 (file)
@@ -29,7 +29,7 @@ for (1 .. $numtests) {
        unless ($skip) {
                print "not " unless sha512_hex($data) eq $digest;
        }
-       print "ok ", $_, $skip ? " # skip: no 64 bit" : "", "\n";
+       print "ok ", $_, $skip ? " # skip: no 64-bit" : "", "\n";
 }
 
 __DATA__
index 9e45cf9..35f4e6a 100644 (file)
@@ -54,7 +54,7 @@ my $skip = hmac_sha384_hex("", "") ? 0 : 1;
 while (@data_bs1024) {
        if ($skip) {
                print "ok ", $testnum++,
-                       $skip ? " # skip: no 64 bit" : "", "\n";
+                       $skip ? " # skip: no 64-bit" : "", "\n";
                shift @data_bs1024;
                next;
        }
@@ -67,7 +67,7 @@ while (@data_bs1024) {
 while (@dat2_bs1024) {
        if ($skip) {
                print "ok ", $testnum++,
-                       $skip ? " # skip: no 64 bit" : "", "\n";
+                       $skip ? " # skip: no 64-bit" : "", "\n";
                shift @dat2_bs1024;
                next;
        }