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