'Digest::SHA' => {
'MAINTAINER' => 'mshelor',
- 'DISTRIBUTION' => 'MSHELOR/Digest-SHA-5.74.tar.gz',
+ 'DISTRIBUTION' => 'MSHELOR/Digest-SHA-5.80.tar.gz',
'FILES' => q[cpan/Digest-SHA],
'EXCLUDED' => [
qw( t/pod.t
Revision history for Perl extension Digest::SHA.
+5.80 Mon Dec 10 14:15:26 MST 2012
+ - obtained noticeable speedup on Intel/gcc
+ -- by setting -O1 and -fomit-frame-pointer
+ -- SHA-1 about 63% faster, SHA-2 improves 11-20%
+
5.74 Sat Nov 24 03:10:18 MST 2012
- handle wide-string input by converting to bytes first
-- viz. use SvPVbyte instead of SvPV in SHA.xs
}
}
+ # Enhance performance on Intel when using gcc
+
+if ($Config{archname} =~ /^i[3456]86/ && $Config{ccname} eq 'gcc') {
+ push(@extra, OPTIMIZE => '-O1 -fomit-frame-pointer');
+}
+
my %att = (
'NAME' => 'Digest::SHA',
'VERSION_FROM' => $PM,
-Digest::SHA version 5.74
+Digest::SHA version 5.80
========================
Digest::SHA is a complete implementation of the NIST Secure Hash
use Fcntl;
use integer;
-$VERSION = '5.74';
+$VERSION = '5.80';
require Exporter;
require DynaLoader;
##
## Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
##
- ## Version: 5.74
- ## Sat Nov 24 03:10:18 MST 2012
+ ## Version: 5.80
+ ## Mon Dec 10 14:15:26 MST 2012
## shasum SYNOPSIS adapted from GNU Coreutils sha1sum.
## Add an "-a" option for algorithm selection, a "-p"
use Fcntl;
use Getopt::Long;
-my $VERSION = "5.74";
+my $VERSION = "5.80";
## Try to use Digest::SHA. If not installed, use the slower
*
* Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
*
- * Version: 5.74
- * Sat Nov 24 03:10:18 MST 2012
+ * Version: 5.80
+ * Mon Dec 10 14:15:26 MST 2012
*
*/
*
* Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
*
- * Version: 5.74
- * Sat Nov 24 03:10:18 MST 2012
+ * Version: 5.80
+ * Mon Dec 10 14:15:26 MST 2012
*
*/
*
* Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
*
- * Version: 5.74
- * Sat Nov 24 03:10:18 MST 2012
+ * Version: 5.80
+ * Mon Dec 10 14:15:26 MST 2012
*
*/
digcpy(s);
s->base64[0] = '\0';
- if (B64LEN(s->digestlen) >= sizeof(s->base64))
+ if (B64LEN((size_t) s->digestlen) >= sizeof(s->base64))
return(s->base64);
for (n = s->digestlen, q = s->digest; n > 3; n -= 3, q += 3) {
encbase64(q, 3, out);
*
* Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
*
- * Version: 5.74
- * Sat Nov 24 03:10:18 MST 2012
+ * Version: 5.80
+ * Mon Dec 10 14:15:26 MST 2012
*
*/