diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2015-01-12 11:01:41 +0000 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2015-01-12 11:01:41 +0000 |
commit | b495b81bd2099f4fc3660f7ef257d6bdd4b1b90e (patch) | |
tree | a95faddeb8d765c1ba016130425eacd822fd9302 /cpan/Digest-SHA | |
parent | b94c7836b478548336612cc06c8980319145cb35 (diff) | |
download | perl-b495b81bd2099f4fc3660f7ef257d6bdd4b1b90e.tar.gz |
Update Digest-SHA to CPAN version 5.95
[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
Diffstat (limited to 'cpan/Digest-SHA')
-rw-r--r-- | cpan/Digest-SHA/lib/Digest/SHA.pm | 2 | ||||
-rw-r--r-- | cpan/Digest-SHA/shasum | 6 | ||||
-rw-r--r-- | cpan/Digest-SHA/src/sha.c | 4 | ||||
-rw-r--r-- | cpan/Digest-SHA/src/sha.h | 4 | ||||
-rw-r--r-- | cpan/Digest-SHA/src/sha64bit.c | 4 | ||||
-rw-r--r-- | cpan/Digest-SHA/src/sha64bit.h | 4 | ||||
-rw-r--r-- | cpan/Digest-SHA/t/bit-order.t | 15 | ||||
-rw-r--r-- | cpan/Digest-SHA/t/bitorder.t | 29 |
8 files changed, 41 insertions, 27 deletions
diff --git a/cpan/Digest-SHA/lib/Digest/SHA.pm b/cpan/Digest-SHA/lib/Digest/SHA.pm index bbc1e229d7..3abca3d32c 100644 --- a/cpan/Digest-SHA/lib/Digest/SHA.pm +++ b/cpan/Digest-SHA/lib/Digest/SHA.pm @@ -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; diff --git a/cpan/Digest-SHA/shasum b/cpan/Digest-SHA/shasum index 0a1256254d..14ddd606af 100644 --- a/cpan/Digest-SHA/shasum +++ b/cpan/Digest-SHA/shasum @@ -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) = @_; diff --git a/cpan/Digest-SHA/src/sha.c b/cpan/Digest-SHA/src/sha.c index c0daaaa6bd..ea0d41ba07 100644 --- a/cpan/Digest-SHA/src/sha.c +++ b/cpan/Digest-SHA/src/sha.c @@ -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 * */ diff --git a/cpan/Digest-SHA/src/sha.h b/cpan/Digest-SHA/src/sha.h index 5901811b29..e63d4b743b 100644 --- a/cpan/Digest-SHA/src/sha.h +++ b/cpan/Digest-SHA/src/sha.h @@ -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 * */ diff --git a/cpan/Digest-SHA/src/sha64bit.c b/cpan/Digest-SHA/src/sha64bit.c index d5a6a6fb4a..2fa0ddaf44 100644 --- a/cpan/Digest-SHA/src/sha64bit.c +++ b/cpan/Digest-SHA/src/sha64bit.c @@ -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 * */ diff --git a/cpan/Digest-SHA/src/sha64bit.h b/cpan/Digest-SHA/src/sha64bit.h index 573594bddd..ce89548cf3 100644 --- a/cpan/Digest-SHA/src/sha64bit.h +++ b/cpan/Digest-SHA/src/sha64bit.h @@ -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 index 5dd2ebceed..0000000000 --- a/cpan/Digest-SHA/t/bit-order.t +++ /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 index 0000000000..2cd2dbf56b --- /dev/null +++ b/cpan/Digest-SHA/t/bitorder.t @@ -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"; +} |