Update Digest-SHA to CPAN version 5.85

  [DELTA]

5.85  Wed Jun 26 04:05:26 MST 2013
  - workaround for repeated calls to shaclose (ref. Bug #86295)
    -- need to explicitly reset internal pointer to NULL
      ref. shaclose() in SHA.xs
  - corrected typos in shasum script
    -- ref. Bug #85430

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 4b668e6..e520f5b 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -556,7 +556,7 @@ use File::Glob qw(:case);
 
     'Digest::SHA' => {
         'MAINTAINER'   => 'mshelor',
-        'DISTRIBUTION' => 'MSHELOR/Digest-SHA-5.84.tar.gz',
+        'DISTRIBUTION' => 'MSHELOR/Digest-SHA-5.85.tar.gz',
         'FILES'        => q[cpan/Digest-SHA],
         'EXCLUDED'     => [
             qw( t/pod.t

diff --git a/cpan/Digest-SHA/Changes b/cpan/Digest-SHA/Changes
index 9891523..bef60f3 100644 (file)
--- a/cpan/Digest-SHA/Changes
+++ b/cpan/Digest-SHA/Changes
@@ -1,5 +1,12 @@
 Revision history for Perl extension Digest::SHA.
 
+5.85  Wed Jun 26 04:05:26 MST 2013
+       - workaround for repeated calls to shaclose (ref. Bug #86295)
+               -- need to explicitly reset internal pointer to NULL
+                       ref. shaclose() in SHA.xs
+       - corrected typos in shasum script
+               -- ref. Bug #85430
+
 5.84  Sat Mar  9 17:36:08 MST 2013
        - untweaked Makefile.PL to remove dependencies of SHA.c
                -- dependencies were breaking builds on VMS

diff --git a/cpan/Digest-SHA/README b/cpan/Digest-SHA/README
index 98317ba..f32d39a 100644 (file)
--- a/cpan/Digest-SHA/README
+++ b/cpan/Digest-SHA/README
@@ -1,4 +1,4 @@
-Digest::SHA version 5.84
+Digest::SHA version 5.85
 ========================
 
 Digest::SHA is a complete implementation of the NIST Secure Hash

diff --git a/cpan/Digest-SHA/SHA.xs b/cpan/Digest-SHA/SHA.xs
index b93c232..3caf8ef 100644 (file)
--- a/cpan/Digest-SHA/SHA.xs
+++ b/cpan/Digest-SHA/SHA.xs
@@ -31,6 +31,9 @@ PROTOTYPES: ENABLE
 int
 shaclose(s)
        SHA *   s
+CODE:
+       RETVAL = shaclose(s);
+       sv_setiv(SvRV(ST(0)), 0);
 
 int
 shadump(file, s)

diff --git a/cpan/Digest-SHA/lib/Digest/SHA.pm b/cpan/Digest-SHA/lib/Digest/SHA.pm
index ef5be0a..9f94136 100644 (file)
--- a/cpan/Digest-SHA/lib/Digest/SHA.pm
+++ b/cpan/Digest-SHA/lib/Digest/SHA.pm
@@ -7,7 +7,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 use Fcntl;
 use integer;
 
-$VERSION = '5.84';
+$VERSION = '5.85';
 
 require Exporter;
 require DynaLoader;
@@ -62,7 +62,7 @@ sub new {
 
 sub DESTROY {
        my $self = shift;
-       shaclose($$self) if $$self;
+       if ($$self) { shaclose($$self); $$self = undef }
 }
 
 sub clone {

diff --git a/cpan/Digest-SHA/shasum b/cpan/Digest-SHA/shasum
index 11da695..381a980 100644 (file)
--- a/cpan/Digest-SHA/shasum
+++ b/cpan/Digest-SHA/shasum
@@ -4,8 +4,8 @@
        ##
        ## Copyright (C) 2003-2013 Mark Shelor, All Rights Reserved
        ##
-       ## Version: 5.84
-       ## Sat Mar  9 17:36:08 MST 2013
+       ## Version: 5.85
+       ## Wed Jun 26 04:05:26 MST 2013
 
        ## 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.84";
+my $VERSION = "5.85";
 
 
        ## Try to use Digest::SHA.  If not installed, use the slower
@@ -164,7 +164,7 @@ usage(1, "shasum: --status option used only when verifying checksums\n")
        if $status && !$check;
 
 
-       ## Default to SHA-1 unless overriden by command line option
+       ## Default to SHA-1 unless overridden by command line option
 
 $alg = 1 unless defined $alg;
 grep { $_ == $alg } (1, 224, 256, 384, 512, 512224, 512256)
@@ -181,7 +181,7 @@ if ($version) {
 
        ## Try to figure out if the OS is DOS-like.  If it is,
        ## default to binary mode when reading files, unless
-       ## explicitly overriden by command line "--text" or
+       ## explicitly overridden by command line "--text" or
        ## "--portable" options.
 
 my $isDOSish = ($^O =~ /^(MSWin\d\d|os2|dos|mint|cygwin)$/);

diff --git a/cpan/Digest-SHA/src/sha.c b/cpan/Digest-SHA/src/sha.c
index 6d6fe68..d989d6c 100644 (file)
--- a/cpan/Digest-SHA/src/sha.c
+++ b/cpan/Digest-SHA/src/sha.c
@@ -5,8 +5,8 @@
  *
  * Copyright (C) 2003-2013 Mark Shelor, All Rights Reserved
  *
- * Version: 5.84
- * Sat Mar  9 17:36:08 MST 2013
+ * Version: 5.85
+ * Wed Jun 26 04:05:26 MST 2013
  *
  */
 

diff --git a/cpan/Digest-SHA/src/sha.h b/cpan/Digest-SHA/src/sha.h
index fb7279e..b38b1fd 100644 (file)
--- a/cpan/Digest-SHA/src/sha.h
+++ b/cpan/Digest-SHA/src/sha.h
@@ -5,8 +5,8 @@
  *
  * Copyright (C) 2003-2013 Mark Shelor, All Rights Reserved
  *
- * Version: 5.84
- * Sat Mar  9 17:36:08 MST 2013
+ * Version: 5.85
+ * Wed Jun 26 04:05:26 MST 2013
  *
  */