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