Revision history for Perl extension Digest::SHA.
+5.44 Sat Oct 14 00:42:44 MST 2006
+ - removed SIGNATURE file from distribution
+ -- spurious errors from CPANPLUS can break build
+ - eliminated ppport.h header file
+ -- significantly reduces size of distribution
+ - modified C functions in src/hmac.c to use ANSI prototypes
+ -- thanks to Jarkko Hietaniemi for patch
+
5.43 Sat Aug 5 02:36:18 MST 2006
- undid Perl Best Practice of favoring 3-argument "open"
-- 3-arg version uses different semantics for "-"
-Digest::SHA version 5.43
+Digest::SHA version 5.44
========================
Digest::SHA is a complete implementation of the NIST Secure Hash
use warnings;
use integer;
-our $VERSION = '5.43_01';
+our $VERSION = '5.44';
require Exporter;
our @ISA = qw(Exporter);
ref. L<http://www.csrc.nist.gov/pki/HashWorkshop/NIST%20Statement/Burr_Mar2005.html>
-=head1 BASE64 DIGESTS
+=head1 PADDING OF BASE64 DIGESTS
-By convention, CPAN Digest modules do not pad their Base64 output.
-This means that Base64 digests contain no trailing "=" characters.
-Unfortunately, problems can occur when feeding such digests to other
-software that expects properly padded Base64 encodings.
+By convention, CPAN Digest modules do B<not> pad their Base64 output.
+Problems can occur when feeding such digests to other software that
+expects properly padded Base64 encodings.
For the time being, any necessary padding must be done by the user.
-Fortunately, the rule for accomplishing it is straightforward: if the
-length of a Base64-encoded digest isn't a multiple of 4, simply append
-1 or more "=" characters to the end of the digest until it is:
+Fortunately, this is a simple operation: if the length of a Base64-encoded
+digest isn't a multiple of 4, simply append "=" characters to the end
+of the digest until it is:
while (length($b64_digest) % 4) {
$b64_digest .= '=';
#include "perl.h"
#include "XSUB.h"
-#include "ppport.h"
-
#include <src/sha.c>
#include <src/hmac.c>
#
# Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
#
- # Version: 5.43
- # Sat Aug 5 02:36:18 MST 2006
+ # Version: 5.44
+ # Sat Oct 14 00:42:44 MST 2006
=head1 NAME
use strict;
use Getopt::Long;
-my $VERSION = "5.43";
+my $VERSION = "5.44";
# Try to use Digest::SHA, since it's faster. If not installed,
*
* Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
*
- * Version: 5.43
- * Sat Aug 5 02:36:18 MST 2006
+ * Version: 5.44
+ * Sat Oct 14 00:42:44 MST 2006
*
*/
*
* Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
*
- * Version: 5.43
- * Sat Aug 5 02:36:18 MST 2006
+ * Version: 5.44
+ * Sat Oct 14 00:42:44 MST 2006
*
*/
*
* Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
*
- * Version: 5.43
- * Sat Aug 5 02:36:18 MST 2006
+ * Version: 5.44
+ * Sat Oct 14 00:42:44 MST 2006
*
*/
*
* Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
*
- * Version: 5.43
- * Sat Aug 5 02:36:18 MST 2006
+ * Version: 5.44
+ * Sat Oct 14 00:42:44 MST 2006
*
*/