r3072 - in /packages/libdigest-sha-perl/branches/upstream/current:
Changes
META.yml README SHA.pm SIGNATURE shasum src/hmac.c src/hmac.h src/sha.c
src/sha.h t/2-nist-sha-oo.t
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sat Jun 17 14:46:06 UTC 2006
Author: gregoa-guest
Date: Sat Jun 17 14:46:04 2006
New Revision: 3072
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3072
Log:
Load /tmp/tmp.SKtNJi3265/libdigest-sha-perl-5.41 into
packages/libdigest-sha-perl/branches/upstream/current.
Modified:
packages/libdigest-sha-perl/branches/upstream/current/Changes
packages/libdigest-sha-perl/branches/upstream/current/META.yml
packages/libdigest-sha-perl/branches/upstream/current/README
packages/libdigest-sha-perl/branches/upstream/current/SHA.pm
packages/libdigest-sha-perl/branches/upstream/current/SIGNATURE
packages/libdigest-sha-perl/branches/upstream/current/shasum
packages/libdigest-sha-perl/branches/upstream/current/src/hmac.c
packages/libdigest-sha-perl/branches/upstream/current/src/hmac.h
packages/libdigest-sha-perl/branches/upstream/current/src/sha.c
packages/libdigest-sha-perl/branches/upstream/current/src/sha.h
packages/libdigest-sha-perl/branches/upstream/current/t/2-nist-sha-oo.t
Modified: packages/libdigest-sha-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/Changes?rev=3072&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/Changes (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/Changes Sat Jun 17 14:46:04 2006
@@ -1,4 +1,13 @@
Revision history for Perl extension Digest::SHA.
+
+5.41 Sat Jun 3 01:50:46 MST 2006
+ - corrected addfile
+ -- process $file argument as a filehandle unless passed
+ as a SCALAR (which indicates a file name)
+
+5.40 Fri Jun 2 04:00:30 MST 2006
+ - modified addfile to accept indirect filehandles
+ -- ref. rt.cpan.org #19627 and #19641
5.39 Sun May 28 03:22:24 MST 2006
- modified shasum to warn rather than die for file errors
Modified: packages/libdigest-sha-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/META.yml?rev=3072&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/META.yml (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/META.yml Sat Jun 17 14:46:04 2006
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Digest-SHA
-version: 5.39
+version: 5.41
author:
- Mark Shelor, mshelor at cpan.org
abstract: Perl extension for SHA-1/224/256/384/512
@@ -12,5 +12,5 @@
provides:
Digest::SHA:
file: SHA.pm
- version: 5.39
+ version: 5.41
generated_by: Module::Build version 0.22
Modified: packages/libdigest-sha-perl/branches/upstream/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/README?rev=3072&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/README (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/README Sat Jun 17 14:46:04 2006
@@ -1,4 +1,4 @@
-Digest::SHA version 5.39
+Digest::SHA version 5.41
========================
Digest::SHA is a complete implementation of the NIST Secure Hash
Modified: packages/libdigest-sha-perl/branches/upstream/current/SHA.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/SHA.pm?rev=3072&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/SHA.pm (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/SHA.pm Sat Jun 17 14:46:04 2006
@@ -6,7 +6,7 @@
use warnings;
use integer;
-our $VERSION = '5.39';
+our $VERSION = '5.41';
require Exporter;
our @ISA = qw(Exporter);
@@ -112,7 +112,7 @@
sub Addfile {
my ($self, $file, $mode) = @_;
- if (ref(\$file) eq 'GLOB') { return(_addfile($self, $file)) }
+ return(_addfile($self, $file)) unless ref(\$file) eq 'SCALAR';
$mode = defined($mode) ? $mode : "";
my ($binary, $portable) = map { $_ eq $mode } ("b", "p");
Modified: packages/libdigest-sha-perl/branches/upstream/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/SIGNATURE?rev=3072&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/SIGNATURE (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/SIGNATURE Sat Jun 17 14:46:04 2006
@@ -14,20 +14,20 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 a73a1adca7a824df34190ceb459eb61046aa52e2 Changes
+SHA1 cabbf055a6baf5e44a0077acc3893fadd4152dd3 Changes
SHA1 952a17b73eeb605287d1aa08d2e8bf4837106b43 MANIFEST
-SHA1 40a4eefdf66e75517fffb829964a414cb370be4a META.yml
+SHA1 714bff592bcd28df6c7d0cee672eb2c090744aa3 META.yml
SHA1 def31e4ea732857338ca9858b091a7b9b4c35fd7 Makefile.PL
-SHA1 3d858a1fb34300001599f240a4fdba54c81ea31f README
-SHA1 fa71c875541414bfe5307756c4cc435a760750a9 SHA.pm
+SHA1 702a09721bbe399223a92b53e18b43ef1091d436 README
+SHA1 85733b9681cf91c14fe5aeba2800f07e7045a93e SHA.pm
SHA1 51d3d1db41241cdf960bb3d5c81efa9eac13b197 SHA.xs
SHA1 48517b1bf0ddf48ae4bc24910d3b9af625bc2325 ppport.h
-SHA1 7f01b2c6c83dc682b1704901d3001b40b83cc9c6 shasum
-SHA1 71366f8b4cb41657ad43d6a8f3c533ba5126f98e src/hmac.c
-SHA1 caa7528bf0d5a6e73abedb54ddd8fd0366c275d7 src/hmac.h
+SHA1 81edf31a7454f1c6684f3eea3765ccbbc1714fb3 shasum
+SHA1 d3613dc31e6d07b448559a6aeb6bc352c794b546 src/hmac.c
+SHA1 c3039558777c06c626d18827d3f8114b4a9b1bf5 src/hmac.h
SHA1 7589c6ce33e74a58ded932d69756659e91723fdb src/hmacxtra.c
-SHA1 7211043454d63e444252bd03c1f3aef2f8754e63 src/sha.c
-SHA1 e92ff7c10662e1e9a2393cc49ced373c17c83d7f src/sha.h
+SHA1 8ba775a2803e4492acd152efc0e5821a7c6b72f3 src/sha.c
+SHA1 075e3e772e74a3cbd439dab6e5194c468d873931 src/sha.h
SHA1 c1bba35de65c8d81362472b76075dba8cf1e542b src/sha64bit.c
SHA1 48d806b05a15dfd8211d5f7158b3294d86fa24d2 src/sha64bit.h
SHA1 329ac17325437c725331fbf84ae0c9484f50041a src/shaxtra.c
@@ -41,7 +41,7 @@
SHA1 5ff47d34427af615dd5222486a3460e2a75535aa t/2-nist-sha-384.t
SHA1 4d5dfce16efb801b27dcd5cfcd904d91175e97f1 t/2-nist-sha-512.t
SHA1 902f263f29354655886cc5e5361bf8ff6fc6dc68 t/2-nist-sha-base64.t
-SHA1 cbfd1bd7c5f3b708b0a1b581dcf6af65490c446f t/2-nist-sha-oo.t
+SHA1 721ca107b263b128f128a65a4f660581e3344e1d t/2-nist-sha-oo.t
SHA1 62b21ae81d5e57c0b064f7ba0c6bc81952ea2808 t/2-nist-vectors-bit.t
SHA1 f8f550ff0161091803e163f56ecc043a9ae2387c t/2-nist-vectors-byte.t
SHA1 3e9a29e58dfc4a6c40b5f92982d7ba26f175cf9c t/3-gillogly-easy.t
@@ -71,7 +71,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.1 (GNU/Linux)
-iD8DBQFEeXyTBwNg/wr1Y/4RAk8iAJ0S8L/kq7tn3ucmsSOUQyP4dSV1yACgj8K6
-+6ZCFz3GP+PHDsSyTb06TME=
-=XeHm
+iD8DBQFEgU6EBwNg/wr1Y/4RApdOAJ46GmuAdxR8+FQIuGZUXlEAPJlqxwCg1E9g
+TydSX2oMr+7Y+MnrA+mfC4U=
+=nZJs
-----END PGP SIGNATURE-----
Modified: packages/libdigest-sha-perl/branches/upstream/current/shasum
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/shasum?rev=3072&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/shasum (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/shasum Sat Jun 17 14:46:04 2006
@@ -1,11 +1,11 @@
#!perl -w
- # shasum: filter for computing SHA digests (analogous to md5sum)
+ # shasum: filter for computing SHA digests (analogous to sha1sum)
#
# Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
#
- # Version: 5.39
- # Sun May 28 03:22:24 MST 2006
+ # Version: 5.41
+ # Sat Jun 3 01:50:46 MST 2006
=head1 NAME
@@ -52,7 +52,7 @@
use strict;
use Getopt::Long;
-my $VERSION = "5.39";
+my $VERSION = "5.41";
# Try to use Digest::SHA, since it's faster. If not installed,
@@ -237,8 +237,8 @@
# Compute and display SHA checksums of requested files
-for my $arg (@ARGV) {
- if (my $digest = sumfile($arg)) {
- print "$digest $modesym", "$arg\n";
- }
-}
+for my $file (@ARGV) {
+ if (my $digest = sumfile($file)) {
+ print "$digest $modesym", "$file\n";
+ }
+}
Modified: packages/libdigest-sha-perl/branches/upstream/current/src/hmac.c
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/src/hmac.c?rev=3072&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/src/hmac.c (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/src/hmac.c Sat Jun 17 14:46:04 2006
@@ -5,8 +5,8 @@
*
* Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
*
- * Version: 5.39
- * Sun May 28 03:22:24 MST 2006
+ * Version: 5.41
+ * Sat Jun 3 01:50:46 MST 2006
*
*/
Modified: packages/libdigest-sha-perl/branches/upstream/current/src/hmac.h
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/src/hmac.h?rev=3072&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/src/hmac.h (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/src/hmac.h Sat Jun 17 14:46:04 2006
@@ -5,8 +5,8 @@
*
* Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
*
- * Version: 5.39
- * Sun May 28 03:22:24 MST 2006
+ * Version: 5.41
+ * Sat Jun 3 01:50:46 MST 2006
*
*/
Modified: packages/libdigest-sha-perl/branches/upstream/current/src/sha.c
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/src/sha.c?rev=3072&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/src/sha.c (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/src/sha.c Sat Jun 17 14:46:04 2006
@@ -5,8 +5,8 @@
*
* Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
*
- * Version: 5.39
- * Sun May 28 03:22:24 MST 2006
+ * Version: 5.41
+ * Sat Jun 3 01:50:46 MST 2006
*
*/
Modified: packages/libdigest-sha-perl/branches/upstream/current/src/sha.h
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/src/sha.h?rev=3072&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/src/sha.h (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/src/sha.h Sat Jun 17 14:46:04 2006
@@ -5,8 +5,8 @@
*
* Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
*
- * Version: 5.39
- * Sun May 28 03:22:24 MST 2006
+ * Version: 5.41
+ * Sat Jun 3 01:50:46 MST 2006
*
*/
Modified: packages/libdigest-sha-perl/branches/upstream/current/t/2-nist-sha-oo.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/t/2-nist-sha-oo.t?rev=3072&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/t/2-nist-sha-oo.t (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/t/2-nist-sha-oo.t Sat Jun 17 14:46:04 2006
@@ -20,7 +20,7 @@
"248d6a61d20638b8e5c026930c3e6039a33ce45964ff2167f6ecedd419db06c1"
);
- plan tests => 5 + scalar(@vec);
+ plan tests => 6 + scalar(@vec);
}
# attempt to use an invalid algorithm, and check for failure
@@ -48,6 +48,13 @@
binmode(FILE);
ok($ctx->clone->addfile(*FILE)->hexdigest, $rsp);
close(FILE);
+
+ # use indirect filehandle
+
+open(my $fh, "<$file");
+binmode($fh);
+ok($ctx->clone->addfile($fh)->hexdigest, $rsp);
+close($fh);
# test addfile using file name instead of handle
More information about the Pkg-perl-cvs-commits
mailing list