r36257 - in /branches/upstream/libdigest-sha1-perl/current: Changes MANIFEST META.yml Makefile.PL SHA1.pm SHA1.xs hints/ hints/irix_6.pl
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Sun May 24 04:35:49 UTC 2009
Author: ryan52-guest
Date: Sun May 24 04:35:40 2009
New Revision: 36257
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=36257
Log:
[svn-upgrade] Integrating new upstream version, libdigest-sha1-perl (2.12)
Added:
branches/upstream/libdigest-sha1-perl/current/META.yml
branches/upstream/libdigest-sha1-perl/current/hints/
branches/upstream/libdigest-sha1-perl/current/hints/irix_6.pl
Modified:
branches/upstream/libdigest-sha1-perl/current/Changes
branches/upstream/libdigest-sha1-perl/current/MANIFEST
branches/upstream/libdigest-sha1-perl/current/Makefile.PL
branches/upstream/libdigest-sha1-perl/current/SHA1.pm
branches/upstream/libdigest-sha1-perl/current/SHA1.xs
Modified: branches/upstream/libdigest-sha1-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha1-perl/current/Changes?rev=36257&op=diff
==============================================================================
--- branches/upstream/libdigest-sha1-perl/current/Changes (original)
+++ branches/upstream/libdigest-sha1-perl/current/Changes Sun May 24 04:35:40 2009
@@ -1,3 +1,18 @@
+2009-05-23 Release 2.12
+
+ Gisle Aas (6):
+ Get rid of the old CVS ids
+ Avoid "redefined" error for ULONG on Win64
+ Less optimizations on IRIX [RT#8999]
+ Clean up the 'git status' output
+ Mention that SHA-1 might be weak [RT#11880]
+ Ensure more stuff in the META.yml file [RT#40757]
+
+ Steve Peters (1):
+ Quiet warnings when compiled with -Wwrite-strings [RT#31915]
+
+
+
2006-01-18 Gisle Aas <gisle at ActiveState.com>
Release 2.11
Modified: branches/upstream/libdigest-sha1-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha1-perl/current/MANIFEST?rev=36257&op=diff
==============================================================================
--- branches/upstream/libdigest-sha1-perl/current/MANIFEST (original)
+++ branches/upstream/libdigest-sha1-perl/current/MANIFEST Sun May 24 04:35:40 2009
@@ -6,7 +6,9 @@
SHA1.xs
fip180-1.gif
fip180-1.html
+hints/irix_6.pl
t/badfile.t
t/bits.t
t/sha1.t
typemap
+META.yml Module meta-data (added by MakeMaker)
Added: branches/upstream/libdigest-sha1-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha1-perl/current/META.yml?rev=36257&op=file
==============================================================================
--- branches/upstream/libdigest-sha1-perl/current/META.yml (added)
+++ branches/upstream/libdigest-sha1-perl/current/META.yml Sun May 24 04:35:40 2009
@@ -1,0 +1,22 @@
+--- #YAML:1.0
+name: Digest-SHA1
+version: 2.12
+abstract: Perl interface to the SHA-1 algorithm
+author:
+ - Gisle Aas <gisle at activestate.com>
+license: perl
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ Digest::base: 1.00
+ perl: 5.004
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.4801
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+repository: http://github.com/gisle/digest-sha1
Modified: branches/upstream/libdigest-sha1-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha1-perl/current/Makefile.PL?rev=36257&op=diff
==============================================================================
--- branches/upstream/libdigest-sha1-perl/current/Makefile.PL (original)
+++ branches/upstream/libdigest-sha1-perl/current/Makefile.PL Sun May 24 04:35:40 2009
@@ -4,8 +4,38 @@
WriteMakefile(
'NAME' => 'Digest::SHA1',
'VERSION_FROM' => 'SHA1.pm',
+ 'ABSTRACT' => 'Perl interface to the SHA-1 algorithm',
+ 'AUTHOR' => 'Gisle Aas <gisle at activestate.com>',
+ 'LICENSE' => "perl",
+ 'MIN_PERL_VERSION' => 5.004,
'PREREQ_PM' => {
'Digest::base' => '1.00',
},
+ 'META_MERGE' => {
+ repository => 'http://github.com/gisle/digest-sha1',
+ },
'dist' => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
);
+
+
+BEGIN {
+ # compatibility with older versions of MakeMaker
+ my $developer = -f "NOTES.txt";
+ my %mm_req = (
+ LICENCE => 6.31,
+ META_MERGE => 6.45,
+ META_ADD => 6.45,
+ MIN_PERL_VERSION => 6.48,
+ );
+ undef(*WriteMakefile);
+ *WriteMakefile = sub {
+ my %arg = @_;
+ for (keys %mm_req) {
+ unless (eval { ExtUtils::MakeMaker->VERSION($mm_req{$_}) }) {
+ warn "$_ $@" if $developer;
+ delete $arg{$_};
+ }
+ }
+ ExtUtils::MakeMaker::WriteMakefile(%arg);
+ };
+}
Modified: branches/upstream/libdigest-sha1-perl/current/SHA1.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha1-perl/current/SHA1.pm?rev=36257&op=diff
==============================================================================
--- branches/upstream/libdigest-sha1-perl/current/SHA1.pm (original)
+++ branches/upstream/libdigest-sha1-perl/current/SHA1.pm Sun May 24 04:35:40 2009
@@ -3,7 +3,7 @@
use strict;
use vars qw($VERSION @ISA @EXPORT_OK);
-$VERSION = '2.11'; # $Date: 2006/01/18 11:29:05 $
+$VERSION = '2.12';
require Exporter;
*import = \&Exporter::import;
@@ -63,6 +63,11 @@
input a message of arbitrary length and produces as output a 160-bit
"fingerprint" or "message digest" of the input.
+In 2005, security flaws were identified in SHA-1, namely that a possible
+mathematical weakness might exist, indicating that a stronger hash function
+would be desirable. The L<Digest::SHA> module implements the stronger
+algorithms in the SHA family.
+
The C<Digest::SHA1> module provide a procedural interface for simple
use, as well as an object oriented interface that can handle messages
of arbitrary length and which can read files directly.
@@ -222,6 +227,8 @@
http://www.itl.nist.gov/fipspubs/fip180-1.htm
+http://en.wikipedia.org/wiki/SHA_hash_functions
+
=head1 COPYRIGHT
This library is free software; you can redistribute it and/or
Modified: branches/upstream/libdigest-sha1-perl/current/SHA1.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha1-perl/current/SHA1.xs?rev=36257&op=diff
==============================================================================
--- branches/upstream/libdigest-sha1-perl/current/SHA1.xs (original)
+++ branches/upstream/libdigest-sha1-perl/current/SHA1.xs Sun May 24 04:35:40 2009
@@ -1,5 +1,3 @@
-/* $Id: SHA1.xs,v 1.16 2006/01/18 11:25:48 gisle Exp $ */
-
#ifdef __cplusplus
extern "C" {
#endif
@@ -66,7 +64,7 @@
/* Useful defines & typedefs */
#if defined(U64TYPE) && (defined(USE_64_BIT_INT) || ((BYTEORDER != 0x1234) && (BYTEORDER != 0x4321)))
-typedef U64TYPE ULONG;
+typedef U64TYPE ULONGx;
# if BYTEORDER == 0x1234
# undef BYTEORDER
# define BYTEORDER 0x12345678
@@ -75,15 +73,15 @@
# define BYTEORDER 0x87654321
# endif
#else
-typedef unsigned long ULONG; /* 32-or-more-bit quantity */
+typedef unsigned long ULONGx; /* 32-or-more-bit quantity */
#endif
#define SHA_BLOCKSIZE 64
#define SHA_DIGESTSIZE 20
typedef struct {
- ULONG digest[5]; /* message digest */
- ULONG count_lo, count_hi; /* 64-bit bit count */
+ ULONGx digest[5]; /* message digest */
+ ULONGx count_lo, count_hi; /* 64-bit bit count */
U8 data[SHA_BLOCKSIZE]; /* SHA data buffer */
int local; /* unprocessed amount in data */
} SHA_INFO;
@@ -144,7 +142,7 @@
{
int i;
U8 *dp;
- ULONG T, A, B, C, D, E, W[80], *WP;
+ ULONGx T, A, B, C, D, E, W[80], *WP;
dp = sha_info->data;
@@ -158,9 +156,9 @@
#if BYTEORDER == 0x1234
#define SWAP_DONE
- /* assert(sizeof(ULONG) == 4); */
+ /* assert(sizeof(ULONGx) == 4); */
for (i = 0; i < 16; ++i) {
- T = *((ULONG *) dp);
+ T = *((ULONGx *) dp);
dp += 4;
W[i] = ((T << 24) & 0xff000000) | ((T << 8) & 0x00ff0000) |
((T >> 8) & 0x0000ff00) | ((T >> 24) & 0x000000ff);
@@ -169,9 +167,9 @@
#if BYTEORDER == 0x4321
#define SWAP_DONE
- /* assert(sizeof(ULONG) == 4); */
+ /* assert(sizeof(ULONGx) == 4); */
for (i = 0; i < 16; ++i) {
- T = *((ULONG *) dp);
+ T = *((ULONGx *) dp);
dp += 4;
W[i] = T32(T);
}
@@ -179,9 +177,9 @@
#if BYTEORDER == 0x12345678
#define SWAP_DONE
- /* assert(sizeof(ULONG) == 8); */
+ /* assert(sizeof(ULONGx) == 8); */
for (i = 0; i < 16; i += 2) {
- T = *((ULONG *) dp);
+ T = *((ULONGx *) dp);
dp += 8;
W[i] = ((T << 24) & 0xff000000) | ((T << 8) & 0x00ff0000) |
((T >> 8) & 0x0000ff00) | ((T >> 24) & 0x000000ff);
@@ -193,9 +191,9 @@
#if BYTEORDER == 0x87654321
#define SWAP_DONE
- /* assert(sizeof(ULONG) == 8); */
+ /* assert(sizeof(ULONGx) == 8); */
for (i = 0; i < 16; i += 2) {
- T = *((ULONG *) dp);
+ T = *((ULONGx *) dp);
dp += 8;
W[i] = T32(T >> 32);
W[i+1] = T32(T);
@@ -275,14 +273,14 @@
static void sha_update(SHA_INFO *sha_info, U8 *buffer, int count)
{
int i;
- ULONG clo;
-
- clo = T32(sha_info->count_lo + ((ULONG) count << 3));
+ ULONGx clo;
+
+ clo = T32(sha_info->count_lo + ((ULONGx) count << 3));
if (clo < sha_info->count_lo) {
++sha_info->count_hi;
}
sha_info->count_lo = clo;
- sha_info->count_hi += (ULONG) count >> 29;
+ sha_info->count_hi += (ULONGx) count >> 29;
if (sha_info->local) {
i = SHA_BLOCKSIZE - sha_info->local;
if (i > count) {
@@ -338,7 +336,7 @@
static void sha_final(unsigned char digest[20], SHA_INFO *sha_info)
{
int count;
- ULONG lo_bit_count, hi_bit_count;
+ ULONGx lo_bit_count, hi_bit_count;
lo_bit_count = sha_info->count_lo;
hi_bit_count = sha_info->count_hi;
@@ -383,7 +381,7 @@
static char* hex_20(const unsigned char* from, char* to)
{
- static char *hexdigits = "0123456789abcdef";
+ static const char *hexdigits = "0123456789abcdef";
const unsigned char *end = from + 20;
char *d = to;
@@ -398,7 +396,7 @@
static char* base64_20(const unsigned char* from, char* to)
{
- static char* base64 =
+ static const char* base64 =
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
const unsigned char *end = from + 20;
unsigned char c1, c2, c3;
@@ -485,7 +483,7 @@
SV* self
PREINIT:
SHA_INFO* cont = get_sha_info(aTHX_ self);
- char *myname = sv_reftype(SvRV(self),TRUE);
+ const char *myname = sv_reftype(SvRV(self),TRUE);
SHA_INFO* context;
PPCODE:
New(55, context, 1, SHA_INFO);
@@ -571,7 +569,7 @@
sha_init(&ctx);
if (DOWARN) {
- char *msg = 0;
+ const char *msg = 0;
if (items == 1) {
if (SvROK(ST(0))) {
SV* sv = SvRV(ST(0));
@@ -588,8 +586,8 @@
}
}
if (msg) {
- char *f = (ix == F_BIN) ? "sha1" :
- (ix == F_HEX) ? "sha1_hex" : "sha1_base64";
+ const char *f = (ix == F_BIN) ? "sha1" :
+ (ix == F_HEX) ? "sha1_hex" : "sha1_base64";
warn("&Digest::SHA1::%s function %s", f, msg);
}
}
Added: branches/upstream/libdigest-sha1-perl/current/hints/irix_6.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdigest-sha1-perl/current/hints/irix_6.pl?rev=36257&op=file
==============================================================================
--- branches/upstream/libdigest-sha1-perl/current/hints/irix_6.pl (added)
+++ branches/upstream/libdigest-sha1-perl/current/hints/irix_6.pl Sun May 24 04:35:40 2009
@@ -1,0 +1,6 @@
+# The Mongoose v7.1 compiler freezes up somewhere in the optimization of
+# MD5Transform() in MD5.c with optimization -O3. This is a workaround:
+
+if ($Config{cc} =~ /64|n32/ && `$Config{cc} -version 2>&1` =~ /\s7\.1/) {
+ $self->{OPTIMIZE} = "-O1";
+}
More information about the Pkg-perl-cvs-commits
mailing list