r18453 - in /branches/upstream/libdigest-sha-perl/current: Changes META.yml Makefile.PL README SHA.pm examples/dups shasum src/hmac.c src/hmac.h src/sha.c src/sha.h

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Thu Apr 10 14:01:59 UTC 2008 

Author: gregoa-guest
Date: Thu Apr 10 14:01:57 2008
New Revision: 18453

URL: http://svn.debian.org/wsvn/?sc=1&rev=18453
Log:
[svn-upgrade] Integrating new upstream version, libdigest-sha-perl (5.46)

Modified:
    branches/upstream/libdigest-sha-perl/current/Changes
    branches/upstream/libdigest-sha-perl/current/META.yml
    branches/upstream/libdigest-sha-perl/current/Makefile.PL
    branches/upstream/libdigest-sha-perl/current/README
    branches/upstream/libdigest-sha-perl/current/SHA.pm
    branches/upstream/libdigest-sha-perl/current/examples/dups
    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/branches/upstream/libdigest-sha-perl/current/Changes?rev=18453&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/Changes (original)
+++ branches/upstream/libdigest-sha-perl/current/Changes Thu Apr 10 14:01:57 2008
@@ -1,4 +1,11 @@
 Revision history for Perl extension Digest::SHA.
+
+5.46  Wed Apr  9 05:04:00 MST 2008
+	- modified Addfile to recognize leading and trailing
+		whitespace in filenames (ref. rt.cpan.org #34690)
+	- minor C source code modification (ref. hmac.c)
+	- use const in sha.c for clean builds with -Wwrite-strings
+		-- thanks to Robin Barker for patch
 
 5.45  Tue Jun 26 02:36:00 MST 2007
 	- extended portability to earlier Perls

Modified: branches/upstream/libdigest-sha-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-sha-perl/current/META.yml?rev=18453&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/META.yml (original)
+++ branches/upstream/libdigest-sha-perl/current/META.yml Thu Apr 10 14:01:57 2008
@@ -1,10 +1,12 @@
 --- #YAML:1.0
 name: Digest-SHA
-version: 5.45
+version: 5.46
 abstract: Perl extension for SHA-1/224/256/384/512
 license: perl
 author:
   - Mark Shelor, mshelor at cpan.org
+requires:
+  perl: 5.003
 meta-spec:
   version: 1.3
   url: http://module-build.sourceforge.net/META-spec-v1.3.html

Modified: branches/upstream/libdigest-sha-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-sha-perl/current/Makefile.PL?rev=18453&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/Makefile.PL (original)
+++ branches/upstream/libdigest-sha-perl/current/Makefile.PL Thu Apr 10 14:01:57 2008
@@ -32,7 +32,7 @@
 	'EXE_FILES'	=> [ 'shasum' ],
 );
 
-$att{NO_META} = 1
-	unless $ExtUtils::MakeMaker::VERSION < 6.10_03;
+my $MMversion = $ExtUtils::MakeMaker::VERSION || 0;
+$att{NO_META} = 1 unless $MMversion < 6.10_03;
 
 WriteMakefile(%att);

Modified: branches/upstream/libdigest-sha-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-sha-perl/current/README?rev=18453&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/README (original)
+++ branches/upstream/libdigest-sha-perl/current/README Thu Apr 10 14:01:57 2008
@@ -1,4 +1,4 @@
-Digest::SHA version 5.45
+Digest::SHA version 5.46
 ========================
 
 Digest::SHA is a complete implementation of the NIST Secure Hash
@@ -34,7 +34,7 @@
 
 COPYRIGHT AND LICENSE
 
-Copyright (C) 2003-2007 Mark Shelor
+Copyright (C) 2003-2008 Mark Shelor
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.

Modified: branches/upstream/libdigest-sha-perl/current/SHA.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-sha-perl/current/SHA.pm?rev=18453&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/SHA.pm (original)
+++ branches/upstream/libdigest-sha-perl/current/SHA.pm Thu Apr 10 14:01:57 2008
@@ -6,7 +6,7 @@
 use integer;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 
-$VERSION = '5.45';
+$VERSION = '5.46';
 
 require Exporter;
 require DynaLoader;
@@ -114,7 +114,10 @@
 	my $text = -T $file;
 
 	local *FH;
-	open(FH, "<$file") or _bail("Open failed");
+		# protect any leading or trailing whitespace in $file;
+		# otherwise, 2-arg "open" will ignore them
+	$file =~ s#^(\s)#./$1#;
+	open(FH, "< $file\0") or _bail("Open failed");
 	binmode(FH) if $binary || $portable;
 
 	unless ($portable && $text) {
@@ -655,7 +658,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2003-2007 Mark Shelor
+Copyright (C) 2003-2008 Mark Shelor
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.

Modified: branches/upstream/libdigest-sha-perl/current/examples/dups
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-sha-perl/current/examples/dups?rev=18453&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/examples/dups (original)
+++ branches/upstream/libdigest-sha-perl/current/examples/dups Thu Apr 10 14:01:57 2008
@@ -49,9 +49,9 @@
 my @files = grep { -f $_ } @ARGV;
 
 my %dups;
-for my $file (@files) {
-	my $digest = Digest::SHA->new->addfile($file, "b")->hexdigest;
-	push(@{$dups{$digest}}, $file);
+for (@files) {
+	my $digest = Digest::SHA->new->addfile($_, "b")->hexdigest;
+	push(@{$dups{$digest}}, $_);
 }
 
 for (keys %dups) {

Modified: branches/upstream/libdigest-sha-perl/current/shasum
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-sha-perl/current/shasum?rev=18453&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/shasum (original)
+++ branches/upstream/libdigest-sha-perl/current/shasum Thu Apr 10 14:01:57 2008
@@ -2,10 +2,10 @@
 
 	# shasum: filter for computing SHA digests (analogous to sha1sum)
 	#
-	# Copyright (C) 2003-2007 Mark Shelor, All Rights Reserved
+	# Copyright (C) 2003-2008 Mark Shelor, All Rights Reserved
 	#
-	# Version: 5.45
-	# Tue Jun 26 02:36:00 MST 2007
+	# Version: 5.46
+	# Wed Apr  9 05:04:00 MST 2008
 
 =head1 NAME
 
@@ -61,7 +61,7 @@
 
 =head1 AUTHOR
 
-Copyright (c) 2003-2007 Mark Shelor <mshelor at cpan.org>.
+Copyright (c) 2003-2008 Mark Shelor <mshelor at cpan.org>.
 
 =head1 SEE ALSO
 
@@ -74,7 +74,7 @@
 use FileHandle;
 use Getopt::Long;
 
-my $VERSION = "5.45";
+my $VERSION = "5.46";
 
 
 	# Try to use Digest::SHA, since it's faster.  If not installed,

Modified: branches/upstream/libdigest-sha-perl/current/src/hmac.c
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-sha-perl/current/src/hmac.c?rev=18453&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/src/hmac.c (original)
+++ branches/upstream/libdigest-sha-perl/current/src/hmac.c Thu Apr 10 14:01:57 2008
@@ -5,8 +5,8 @@
  *
  * Copyright (C) 2003-2007 Mark Shelor, All Rights Reserved
  *
- * Version: 5.45
- * Tue Jun 26 02:36:00 MST 2007
+ * Version: 5.46
+ * Wed Apr  9 05:04:00 MST 2008
  *
  */
 
@@ -94,8 +94,8 @@
 /* hmacclose: de-allocates digest object */
 int hmacclose(HMAC *h)
 {
-	shaclose(h->osha);
 	if (h != NULL) {
+		shaclose(h->osha);
 		memset(h, 0, sizeof(HMAC));
 		SHA_free(h);
 	}

Modified: branches/upstream/libdigest-sha-perl/current/src/hmac.h
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-sha-perl/current/src/hmac.h?rev=18453&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/src/hmac.h (original)
+++ branches/upstream/libdigest-sha-perl/current/src/hmac.h Thu Apr 10 14:01:57 2008
@@ -5,8 +5,8 @@
  *
  * Copyright (C) 2003-2007 Mark Shelor, All Rights Reserved
  *
- * Version: 5.45
- * Tue Jun 26 02:36:00 MST 2007
+ * Version: 5.46
+ * Wed Apr  9 05:04:00 MST 2008
  *
  */
 

Modified: branches/upstream/libdigest-sha-perl/current/src/sha.c
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-sha-perl/current/src/sha.c?rev=18453&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/src/sha.c (original)
+++ branches/upstream/libdigest-sha-perl/current/src/sha.c Thu Apr 10 14:01:57 2008
@@ -5,8 +5,8 @@
  *
  * Copyright (C) 2003-2007 Mark Shelor, All Rights Reserved
  *
- * Version: 5.45
- * Tue Jun 26 02:36:00 MST 2007
+ * Version: 5.46
+ * Wed Apr  9 05:04:00 MST 2008
  *
  */
 
@@ -560,7 +560,7 @@
 /* ldvals: checks next line in dump file against tag, and loads values */
 static int ldvals(
 	SHA_FILE *f,
-	char *tag,
+	const char *tag,
 	int type,
 	void *pval,
 	int reps,

Modified: branches/upstream/libdigest-sha-perl/current/src/sha.h
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-sha-perl/current/src/sha.h?rev=18453&op=diff
==============================================================================
--- branches/upstream/libdigest-sha-perl/current/src/sha.h (original)
+++ branches/upstream/libdigest-sha-perl/current/src/sha.h Thu Apr 10 14:01:57 2008
@@ -5,8 +5,8 @@
  *
  * Copyright (C) 2003-2007 Mark Shelor, All Rights Reserved
  *
- * Version: 5.45
- * Tue Jun 26 02:36:00 MST 2007
+ * Version: 5.46
+ * Wed Apr  9 05:04:00 MST 2008
  *
  */

More information about the Pkg-perl-cvs-commits mailing list