Update Digest-SHA to CPAN version 5.95
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 12 Jan 2015 11:01:41 +0000 (11:01 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 12 Jan 2015 11:01:41 +0000 (11:01 +0000)
  [DELTA]

5.95  Sat Jan 10 12:15:36 MST 2015
  - modified the bit-ordering test (ref. t/bitorder.t)
    -- supplied directory-change preamble for CORE builds

MANIFEST
Porting/Maintainers.pl
cpan/Digest-SHA/lib/Digest/SHA.pm
cpan/Digest-SHA/shasum
cpan/Digest-SHA/src/sha.c
cpan/Digest-SHA/src/sha.h
cpan/Digest-SHA/src/sha64bit.c
cpan/Digest-SHA/src/sha64bit.h
cpan/Digest-SHA/t/bit-order.t [deleted file]
cpan/Digest-SHA/t/bitorder.t [new file with mode: 0644]

index 5ea3222..6502631 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -713,7 +713,7 @@ cpan/Digest-SHA/src/sha.h           Digest::SHA extension
 cpan/Digest-SHA/t/allfcns.t            See if Digest::SHA works
 cpan/Digest-SHA/t/base64.t             See if Digest::SHA works
 cpan/Digest-SHA/t/bitbuf.t             See if Digest::SHA works
-cpan/Digest-SHA/t/bit-order.t
+cpan/Digest-SHA/t/bitorder.t
 cpan/Digest-SHA/t/fips180-4.t          See if Digest::SHA works
 cpan/Digest-SHA/t/fips198.t            See if Digest::SHA works
 cpan/Digest-SHA/t/gglong.t             See if Digest::SHA works
index db8e83e..d62a0b4 100755 (executable)
@@ -365,7 +365,7 @@ use File::Glob qw(:case);
     },
 
     'Digest::SHA' => {
-        'DISTRIBUTION' => 'MSHELOR/Digest-SHA-5.94.tar.gz',
+        'DISTRIBUTION' => 'MSHELOR/Digest-SHA-5.95.tar.gz',
         'FILES'        => q[cpan/Digest-SHA],
         'EXCLUDED'     => [
             qw( t/pod.t
index bbc1e22..3abca3d 100644 (file)
@@ -8,7 +8,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 use Fcntl;
 use integer;
 
-$VERSION = '5.94';
+$VERSION = '5.95';
 
 require Exporter;
 require DynaLoader;
index 0a12562..14ddd60 100644 (file)
@@ -4,8 +4,8 @@
        ##
        ## Copyright (C) 2003-2015 Mark Shelor, All Rights Reserved
        ##
-       ## Version: 5.94
-       ## Sat Jan 10 00:45:28 MST 2015
+       ## Version: 5.95
+       ## Sat Jan 10 12:15:36 MST 2015
 
        ## shasum SYNOPSIS adapted from GNU Coreutils sha1sum. Add
        ## "-a" option for algorithm selection,
@@ -101,7 +101,7 @@ L<Digest::SHA::PurePerl>.
 
 END_OF_POD
 
-my $VERSION = "5.94";
+my $VERSION = "5.95";
 
 sub usage {
        my($err, $msg) = @_;
index c0daaaa..ea0d41b 100644 (file)
@@ -5,8 +5,8 @@
  *
  * Copyright (C) 2003-2015 Mark Shelor, All Rights Reserved
  *
- * Version: 5.94
- * Sat Jan 10 00:45:28 MST 2015
+ * Version: 5.95
+ * Sat Jan 10 12:15:36 MST 2015
  *
  */
 
index 5901811..e63d4b7 100644 (file)
@@ -5,8 +5,8 @@
  *
  * Copyright (C) 2003-2015 Mark Shelor, All Rights Reserved
  *
- * Version: 5.94
- * Sat Jan 10 00:45:28 MST 2015
+ * Version: 5.95
+ * Sat Jan 10 12:15:36 MST 2015
  *
  */
 
index d5a6a6f..2fa0dda 100644 (file)
@@ -5,8 +5,8 @@
  *
  * Copyright (C) 2003-2015 Mark Shelor, All Rights Reserved
  *
- * Version: 5.94
- * Sat Jan 10 00:45:28 MST 2015
+ * Version: 5.95
+ * Sat Jan 10 12:15:36 MST 2015
  *
  */
 
index 573594b..ce89548 100644 (file)
@@ -5,8 +5,8 @@
  *
  * Copyright (C) 2003-2015 Mark Shelor, All Rights Reserved
  *
- * Version: 5.94
- * Sat Jan 10 00:45:28 MST 2015
+ * Version: 5.95
+ * Sat Jan 10 12:15:36 MST 2015
  *
  * The following macros supply placeholder values that enable the
  * sha.c module to successfully compile when 64-bit integer types
diff --git a/cpan/Digest-SHA/t/bit-order.t b/cpan/Digest-SHA/t/bit-order.t
deleted file mode 100644 (file)
index 5dd2ebc..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-use strict;
-use Digest::SHA;
-
-my $s1 = Digest::SHA->new;
-my $s2 = Digest::SHA->new;
-my $d1 = $s1->add_bits("110")->hexdigest;
-my $d2 = $s2->add_bits("1")->add_bits("1")->add_bits("0")->hexdigest;
-
-my $numtests = 1;
-print "1..$numtests\n";
-
-for (1 .. $numtests) {
-       print "not " unless $d1 eq $d2;
-       print "ok ", $_, "\n";
-}
diff --git a/cpan/Digest-SHA/t/bitorder.t b/cpan/Digest-SHA/t/bitorder.t
new file mode 100644 (file)
index 0000000..2cd2dbf
--- /dev/null
@@ -0,0 +1,29 @@
+use strict;
+
+my $MODULE;
+
+BEGIN {
+       $MODULE = (-d "src") ? "Digest::SHA" : "Digest::SHA::PurePerl";
+       eval "require $MODULE" || die $@;
+       $MODULE->import(qw());
+}
+
+BEGIN {
+       if ($ENV{PERL_CORE}) {
+               chdir 't' if -d 't';
+               @INC = '../lib';
+       }
+}
+
+my $s1 = $MODULE->new;
+my $s2 = $MODULE->new;
+my $d1 = $s1->add_bits("110")->hexdigest;
+my $d2 = $s2->add_bits("1")->add_bits("1")->add_bits("0")->hexdigest;
+
+my $numtests = 1;
+print "1..$numtests\n";
+
+for (1 .. $numtests) {
+       print "not " unless $d1 eq $d2;
+       print "ok ", $_, "\n";
+}