r65843 - in /branches/upstream/libdigest-sha-perl/current: Changes META.yml README examples/dups lib/Digest/SHA.pm shasum src/hmac.c src/hmac.h src/sha.c src/sha.h
carnil at users.alioth.debian.org
carnil at users.alioth.debian.org
Wed Dec 15 07:17:33 UTC 2010
Author: carnil
Date: Wed Dec 15 07:15:59 2010
New Revision: 65843
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65843
Log:
[svn-upgrade] new version libdigest-sha-perl (5.50)
Modified:
branches/upstream/libdigest-sha-perl/current/Changes
branches/upstream/libdigest-sha-perl/current/META.yml
branches/upstream/libdigest-sha-perl/current/README
branches/upstream/libdigest-sha-perl/current/examples/dups
branches/upstream/libdigest-sha-perl/current/lib/Digest/SHA.pm
branches/upstream/libdigest-sha-perl/current/shasum
branches/upstream/libdigest-sha-perl/current/src/hmac.c
branches/upstream/libdigest-sha-perl/current/src/hmac.h
branches/upstream/libdigest-sha-perl/current/src/sha.c
branches/upstream/libdigest-sha-perl/current/src/sha.h
Modified: branches/upstream/libdigest-sha-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha-perl/current/Changes?rev=65843&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/Changes (original)
+++ branches/upstream/libdigest-sha-perl/current/Changes Wed Dec 15 07:15:59 2010
@@ -1,4 +1,11 @@
Revision history for Perl extension Digest::SHA.
+
+5.50 Tue Dec 14 06:20:08 MST 2010
+ - adopted convention that '-' always means STDIN
+ -- actual filename '-' accessed as './-'
+ -- accords with behavior of sha1sum/md5sum
+ - corrected undefined subroutine oversight in shasum
+ -- inadvertent migration of _bail() from SHA.pm
5.49 Sun Dec 12 07:22:04 MST 2010
- modified Addfile to accept all POSIX filenames
Modified: branches/upstream/libdigest-sha-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha-perl/current/META.yml?rev=65843&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/META.yml (original)
+++ branches/upstream/libdigest-sha-perl/current/META.yml Wed Dec 15 07:15:59 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Digest-SHA
-version: 5.49
+version: 5.50
abstract: Perl extension for SHA-1/224/256/384/512
license: perl
author:
@@ -10,7 +10,7 @@
provides:
Digest::SHA:
file: lib/Digest/SHA.pm
- version: 5.49
+ version: 5.50
meta-spec:
version: 1.3
url: http://module-build.sourceforge.net/META-spec-v1.3.html
Modified: branches/upstream/libdigest-sha-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha-perl/current/README?rev=65843&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/README (original)
+++ branches/upstream/libdigest-sha-perl/current/README Wed Dec 15 07:15:59 2010
@@ -1,4 +1,4 @@
-Digest::SHA version 5.49
+Digest::SHA version 5.50
========================
Digest::SHA is a complete implementation of the NIST Secure Hash
Modified: branches/upstream/libdigest-sha-perl/current/examples/dups
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha-perl/current/examples/dups?rev=65843&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/examples/dups (original)
+++ branches/upstream/libdigest-sha-perl/current/examples/dups Wed Dec 15 07:15:59 2010
@@ -23,12 +23,12 @@
of duplicates, so the output is written as follows:
match1_file1
- match1_file2
+ match1_file2
match1_file3
etc.
match2_file1
- match2_file2
+ match2_file2
etc.
=head1 AUTHOR
Modified: branches/upstream/libdigest-sha-perl/current/lib/Digest/SHA.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha-perl/current/lib/Digest/SHA.pm?rev=65843&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/lib/Digest/SHA.pm (original)
+++ branches/upstream/libdigest-sha-perl/current/lib/Digest/SHA.pm Wed Dec 15 07:15:59 2010
@@ -7,7 +7,7 @@
use Fcntl;
use integer;
-$VERSION = '5.49';
+$VERSION = '5.50';
require Exporter;
require DynaLoader;
@@ -114,14 +114,12 @@
my ($binary, $portable) = map { $_ eq $mode } ("b", "p");
my $text = -T $file;
- ## Use sysopen to accommodate full range of POSIX
- ## file names; fall back to open for magic (-)
+ ## Always interpret "-" to mean STDIN; otherwise use
+ ## sysopen to handle full range of POSIX file names
local *FH;
- unless (sysopen(FH, $file, O_RDONLY)) {
- unless ($file eq '-' && open(FH, '<&STDIN')) {
- _bail("Open failed");
- }
- }
+ $file eq '-' and open(FH, '< -')
+ or sysopen(FH, $file, O_RDONLY)
+ or _bail('Open failed');
binmode(FH) if $binary || $portable;
unless ($portable && $text) {
@@ -140,8 +138,8 @@
last unless $n2;
$buf1 .= $buf2;
}
- $buf1 =~ s/\015?\015\012/\012/g; # DOS/Windows
- $buf1 =~ s/\015/\012/g; # early MacOS
+ $buf1 =~ s/\015?\015\012/\012/g; # DOS/Windows
+ $buf1 =~ s/\015/\012/g; # early MacOS
$self->add($buf1);
}
_bail("Read failed") unless defined $n1;
Modified: branches/upstream/libdigest-sha-perl/current/shasum
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha-perl/current/shasum?rev=65843&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/shasum (original)
+++ branches/upstream/libdigest-sha-perl/current/shasum Wed Dec 15 07:15:59 2010
@@ -4,8 +4,8 @@
##
## Copyright (C) 2003-2010 Mark Shelor, All Rights Reserved
##
- ## Version: 5.49
- ## Sun Dec 12 07:22:04 MST 2010
+ ## Version: 5.50
+ ## Tue Dec 14 06:20:08 MST 2010
=head1 NAME
@@ -74,7 +74,7 @@
use FileHandle;
use Getopt::Long;
-my $VERSION = "5.49";
+my $VERSION = "5.50";
## Try to use Digest::SHA, since it's faster. If not installed,
@@ -237,12 +237,10 @@
my ($bslash, $sum, $fname, $rsp, $digest);
local *FH;
- unless (sysopen(FH, $checkfile, O_RDONLY)) {
- unless ($checkfile eq '-' && open(FH, '<&STDIN')) {
- _bail("Open failed");
- }
- $checkfile = 'standard input';
- }
+ $checkfile eq '-' and open(FH, '< -')
+ and $checkfile = 'standard input'
+ or sysopen(FH, $checkfile, O_RDONLY)
+ or die "shasum: $checkfile: $!\n";
while (<FH>) {
next if /^#/; s/\n$//; s/^[ \t]+//; $num_lines++;
$bslash = s/^\\//;
Modified: branches/upstream/libdigest-sha-perl/current/src/hmac.c
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha-perl/current/src/hmac.c?rev=65843&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/src/hmac.c (original)
+++ branches/upstream/libdigest-sha-perl/current/src/hmac.c Wed Dec 15 07:15:59 2010
@@ -5,8 +5,8 @@
*
* Copyright (C) 2003-2010 Mark Shelor, All Rights Reserved
*
- * Version: 5.49
- * Sun Dec 12 07:22:04 MST 2010
+ * Version: 5.50
+ * Tue Dec 14 06:20:08 MST 2010
*
*/
Modified: branches/upstream/libdigest-sha-perl/current/src/hmac.h
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha-perl/current/src/hmac.h?rev=65843&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/src/hmac.h (original)
+++ branches/upstream/libdigest-sha-perl/current/src/hmac.h Wed Dec 15 07:15:59 2010
@@ -5,8 +5,8 @@
*
* Copyright (C) 2003-2010 Mark Shelor, All Rights Reserved
*
- * Version: 5.49
- * Sun Dec 12 07:22:04 MST 2010
+ * Version: 5.50
+ * Tue Dec 14 06:20:08 MST 2010
*
*/
Modified: branches/upstream/libdigest-sha-perl/current/src/sha.c
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha-perl/current/src/sha.c?rev=65843&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/src/sha.c (original)
+++ branches/upstream/libdigest-sha-perl/current/src/sha.c Wed Dec 15 07:15:59 2010
@@ -5,8 +5,8 @@
*
* Copyright (C) 2003-2010 Mark Shelor, All Rights Reserved
*
- * Version: 5.49
- * Sun Dec 12 07:22:04 MST 2010
+ * Version: 5.50
+ * Tue Dec 14 06:20:08 MST 2010
*
*/
Modified: branches/upstream/libdigest-sha-perl/current/src/sha.h
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha-perl/current/src/sha.h?rev=65843&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/src/sha.h (original)
+++ branches/upstream/libdigest-sha-perl/current/src/sha.h Wed Dec 15 07:15:59 2010
@@ -5,8 +5,8 @@
*
* Copyright (C) 2003-2010 Mark Shelor, All Rights Reserved
*
- * Version: 5.49
- * Sun Dec 12 07:22:04 MST 2010
+ * Version: 5.50
+ * Tue Dec 14 06:20:08 MST 2010
*
*/
More information about the Pkg-perl-cvs-commits
mailing list