Update Digest-SHA to CPAN version 5.73
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 4 Nov 2012 12:56:46 +0000 (12:56 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 4 Nov 2012 12:56:46 +0000 (12:56 +0000)
  [DELTA]

  5.73  Wed Oct 31 04:32:44 MST 2012
    - provided workaround for DEC compiler bug (ref. Makefile.PL)

Porting/Maintainers.pl
cpan/Digest-SHA/Changes
cpan/Digest-SHA/Makefile.PL
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

index c8a059c..07aa09c 100755 (executable)
@@ -594,7 +594,7 @@ use File::Glob qw(:case);
 
     'Digest::SHA' => {
         'MAINTAINER'   => 'mshelor',
-        'DISTRIBUTION' => 'MSHELOR/Digest-SHA-5.72.tar.gz',
+        'DISTRIBUTION' => 'MSHELOR/Digest-SHA-5.73.tar.gz',
         'FILES'        => q[cpan/Digest-SHA],
         'EXCLUDED'     => [
             qw( t/pod.t
index 99c0b5b..f0fb0c4 100644 (file)
@@ -1,5 +1,8 @@
 Revision history for Perl extension Digest::SHA.
 
+5.73  Wed Oct 31 04:32:44 MST 2012
+       - provided workaround for DEC compiler bug (ref. Makefile.PL)
+
 5.72  Mon Sep 24 15:22:08 MST 2012
        - adjusted module installation directory for later Perls
                -- As of 5.11 Perl searches 'site' first, so use that
index e9f4986..a3a4caa 100644 (file)
@@ -25,7 +25,7 @@ if ($Config{archname} =~ /^i[3456]86/) {
 }
 my $define = join(' ', @defines);
 
-       # Workaround for DEC compiler bug, adopted from Digest::MD5
+       # Workaround for DEC compiler bug, adapted from Digest::MD5
 
 my @extra = ();
 if ($^O eq 'VMS') {
index a2b1f56..cf04631 100644 (file)
@@ -1,4 +1,4 @@
-Digest::SHA version 5.72
+Digest::SHA version 5.73
 ========================
 
 Digest::SHA is a complete implementation of the NIST Secure Hash
index 4b36aca..a341991 100644 (file)
@@ -7,7 +7,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 use Fcntl;
 use integer;
 
-$VERSION = '5.72_01';
+$VERSION = '5.73';
 
 require Exporter;
 require DynaLoader;
index 45431de..12d2ca5 100644 (file)
@@ -4,8 +4,8 @@
        ##
        ## Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
        ##
-       ## Version: 5.72
-       ## Mon Sep 24 15:22:08 MST 2012
+       ## Version: 5.73
+       ## Wed Oct 31 04:32:44 MST 2012
 
        ## shasum SYNOPSIS adapted from GNU Coreutils sha1sum.
        ## Add an "-a" option for algorithm selection, a "-p"
@@ -97,7 +97,7 @@ use strict;
 use Fcntl;
 use Getopt::Long;
 
-my $VERSION = "5.72";
+my $VERSION = "5.73";
 
 
        ## Try to use Digest::SHA.  If not installed, use the slower
index 8656fe0..c6ab0a0 100644 (file)
@@ -5,8 +5,8 @@
  *
  * Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
  *
- * Version: 5.72
- * Mon Sep 24 15:22:08 MST 2012
+ * Version: 5.73
+ * Wed Oct 31 04:32:44 MST 2012
  *
  */
 
index 718887b..99d6502 100644 (file)
@@ -5,8 +5,8 @@
  *
  * Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
  *
- * Version: 5.72
- * Mon Sep 24 15:22:08 MST 2012
+ * Version: 5.73
+ * Wed Oct 31 04:32:44 MST 2012
  *
  */
 
index 8a1e6da..d4d8862 100644 (file)
@@ -5,8 +5,8 @@
  *
  * Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
  *
- * Version: 5.72
- * Mon Sep 24 15:22:08 MST 2012
+ * Version: 5.73
+ * Wed Oct 31 04:32:44 MST 2012
  *
  */
 
@@ -216,7 +216,7 @@ static void sha256(SHA *s, UCHR *block)             /* SHA-224/256 transform */
 
 #define SETBIT(s, pos) s[(pos) >> 3] |=  (0x01 << (7 - (pos) % 8))
 #define CLRBIT(s, pos) s[(pos) >> 3] &= ~(0x01 << (7 - (pos) % 8))
-#define NBYTES(nbits)  ((nbits) > 0 ? 1 + (((nbits) - 1) >> 3) : 0)
+#define NBYTES(nbits)  (((nbits) + 7) >> 3)
 #define HEXLEN(nbytes) ((nbytes) << 1)
 #define B64LEN(nbytes) (((nbytes) % 3 == 0) ? ((nbytes) / 3) * 4 \
                        : ((nbytes) / 3) * 4 + ((nbytes) % 3) + 1)
index c7aa873..a27b566 100644 (file)
@@ -5,8 +5,8 @@
  *
  * Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
  *
- * Version: 5.72
- * Mon Sep 24 15:22:08 MST 2012
+ * Version: 5.73
+ * Wed Oct 31 04:32:44 MST 2012
  *
  */