Change 33699 by [EMAIL PROTECTED] on 2008/04/16 14:01:46
Upgrade to Digest::SHA 5.46
(but keep core-compliant test preambles)
Affected files ...
... //depot/perl/ext/Digest/SHA/Changes#11 edit
... //depot/perl/ext/Digest/SHA/README#11 edit
... //depot/perl/ext/Digest/SHA/SHA.pm#14 edit
... //depot/perl/ext/Digest/SHA/bin/shasum#11 edit
... //depot/perl/ext/Digest/SHA/src/hmac.c#13 edit
... //depot/perl/ext/Digest/SHA/src/hmac.h#11 edit
... //depot/perl/ext/Digest/SHA/src/sha.c#13 edit
... //depot/perl/ext/Digest/SHA/src/sha.h#11 edit
Differences ...
==== //depot/perl/ext/Digest/SHA/Changes#11 (text) ====
Index: perl/ext/Digest/SHA/Changes
--- perl/ext/Digest/SHA/Changes#10~31578~ 2007-07-10 07:08:35.000000000
-0700
+++ perl/ext/Digest/SHA/Changes 2008-04-16 07:01:46.000000000 -0700
@@ -1,5 +1,12 @@
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
-- works on Perl 5.003 and later
==== //depot/perl/ext/Digest/SHA/README#11 (text) ====
Index: perl/ext/Digest/SHA/README
--- perl/ext/Digest/SHA/README#10~31578~ 2007-07-10 07:08:35.000000000
-0700
+++ perl/ext/Digest/SHA/README 2008-04-16 07:01:46.000000000 -0700
@@ -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.
==== //depot/perl/ext/Digest/SHA/SHA.pm#14 (text) ====
Index: perl/ext/Digest/SHA/SHA.pm
--- perl/ext/Digest/SHA/SHA.pm#13~31578~ 2007-07-10 07:08:35.000000000
-0700
+++ perl/ext/Digest/SHA/SHA.pm 2008-04-16 07:01:46.000000000 -0700
@@ -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.
==== //depot/perl/ext/Digest/SHA/bin/shasum#11 (xtext) ====
Index: perl/ext/Digest/SHA/bin/shasum
--- perl/ext/Digest/SHA/bin/shasum#10~31578~ 2007-07-10 07:08:35.000000000
-0700
+++ perl/ext/Digest/SHA/bin/shasum 2008-04-16 07:01:46.000000000 -0700
@@ -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 <[EMAIL PROTECTED]>.
+Copyright (c) 2003-2008 Mark Shelor <[EMAIL PROTECTED]>.
=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,
==== //depot/perl/ext/Digest/SHA/src/hmac.c#13 (text) ====
Index: perl/ext/Digest/SHA/src/hmac.c
--- perl/ext/Digest/SHA/src/hmac.c#12~31578~ 2007-07-10 07:08:35.000000000
-0700
+++ perl/ext/Digest/SHA/src/hmac.c 2008-04-16 07:01:46.000000000 -0700
@@ -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);
}
==== //depot/perl/ext/Digest/SHA/src/hmac.h#11 (text) ====
Index: perl/ext/Digest/SHA/src/hmac.h
--- perl/ext/Digest/SHA/src/hmac.h#10~31578~ 2007-07-10 07:08:35.000000000
-0700
+++ perl/ext/Digest/SHA/src/hmac.h 2008-04-16 07:01:46.000000000 -0700
@@ -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
*
*/
==== //depot/perl/ext/Digest/SHA/src/sha.c#13 (text) ====
Index: perl/ext/Digest/SHA/src/sha.c
--- perl/ext/Digest/SHA/src/sha.c#12~31578~ 2007-07-10 07:08:35.000000000
-0700
+++ perl/ext/Digest/SHA/src/sha.c 2008-04-16 07:01:46.000000000 -0700
@@ -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,
==== //depot/perl/ext/Digest/SHA/src/sha.h#11 (text) ====
Index: perl/ext/Digest/SHA/src/sha.h
--- perl/ext/Digest/SHA/src/sha.h#10~31578~ 2007-07-10 07:08:35.000000000
-0700
+++ perl/ext/Digest/SHA/src/sha.h 2008-04-16 07:01:46.000000000 -0700
@@ -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
*
*/
End of Patch.
