r36259 - in /trunk/libdigest-sha1-perl: Changes MANIFEST META.yml Makefile.PL SHA1.pm SHA1.xs debian/changelog debian/control hints/
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Sun May 24 04:37:11 UTC 2009
Author: ryan52-guest
Date: Sun May 24 04:37:06 2009
New Revision: 36259
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=36259
Log:
* New upstream release
* Add myself to Uploaders
* Debian Policy 3.8.1
Added:
trunk/libdigest-sha1-perl/META.yml
- copied unchanged from r36258, branches/upstream/libdigest-sha1-perl/current/META.yml
trunk/libdigest-sha1-perl/hints/
- copied from r36258, branches/upstream/libdigest-sha1-perl/current/hints/
Modified:
trunk/libdigest-sha1-perl/Changes
trunk/libdigest-sha1-perl/MANIFEST
trunk/libdigest-sha1-perl/Makefile.PL
trunk/libdigest-sha1-perl/SHA1.pm
trunk/libdigest-sha1-perl/SHA1.xs
trunk/libdigest-sha1-perl/debian/changelog
trunk/libdigest-sha1-perl/debian/control
Modified: trunk/libdigest-sha1-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-sha1-perl/Changes?rev=36259&op=diff
==============================================================================
--- trunk/libdigest-sha1-perl/Changes (original)
+++ trunk/libdigest-sha1-perl/Changes Sun May 24 04:37:06 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: trunk/libdigest-sha1-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-sha1-perl/MANIFEST?rev=36259&op=diff
==============================================================================
--- trunk/libdigest-sha1-perl/MANIFEST (original)
+++ trunk/libdigest-sha1-perl/MANIFEST Sun May 24 04:37:06 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)
Modified: trunk/libdigest-sha1-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-sha1-perl/Makefile.PL?rev=36259&op=diff
==============================================================================
--- trunk/libdigest-sha1-perl/Makefile.PL (original)
+++ trunk/libdigest-sha1-perl/Makefile.PL Sun May 24 04:37:06 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: trunk/libdigest-sha1-perl/SHA1.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-sha1-perl/SHA1.pm?rev=36259&op=diff
==============================================================================
--- trunk/libdigest-sha1-perl/SHA1.pm (original)
+++ trunk/libdigest-sha1-perl/SHA1.pm Sun May 24 04:37:06 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: trunk/libdigest-sha1-perl/SHA1.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-sha1-perl/SHA1.xs?rev=36259&op=diff
==============================================================================
--- trunk/libdigest-sha1-perl/SHA1.xs (original)
+++ trunk/libdigest-sha1-perl/SHA1.xs Sun May 24 04:37:06 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);
}
}
Modified: trunk/libdigest-sha1-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-sha1-perl/debian/changelog?rev=36259&op=diff
==============================================================================
--- trunk/libdigest-sha1-perl/debian/changelog (original)
+++ trunk/libdigest-sha1-perl/debian/changelog Sun May 24 04:37:06 2009
@@ -1,5 +1,6 @@
-libdigest-sha1-perl (2.11-3) UNRELEASED; urgency=low
+libdigest-sha1-perl (2.12-1) UNRELEASED; urgency=low
+ [ gregor herrmann ]
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
field (source stanza); Homepage field (source stanza). Removed: XS-
Vcs-Svn fields.
@@ -12,7 +13,12 @@
(source stanza).
* debian/control: Added: ${misc:Depends} to Depends: field.
- -- gregor herrmann <gregor+debian at comodo.priv.at> Tue, 09 Oct 2007 22:29:05 +0200
+ [ Ryan Niebur ]
+ * New upstream release
+ * Add myself to Uploaders
+ * Debian Policy 3.8.1
+
+ -- Ryan Niebur <ryanryan52 at gmail.com> Sat, 23 May 2009 21:36:58 -0700
libdigest-sha1-perl (2.11-2) unstable; urgency=low
Modified: trunk/libdigest-sha1-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-sha1-perl/debian/control?rev=36259&op=diff
==============================================================================
--- trunk/libdigest-sha1-perl/debian/control (original)
+++ trunk/libdigest-sha1-perl/debian/control Sun May 24 04:37:06 2009
@@ -2,9 +2,10 @@
Section: perl
Priority: optional
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Zak B. Elep <zakame at spunge.org>, Gunnar Wolf <gwolf at debian.org>
+Uploaders: Zak B. Elep <zakame at spunge.org>, Gunnar Wolf <gwolf at debian.org>,
+ Ryan Niebur <ryanryan52 at gmail.com>
Build-Depends: debhelper (>= 5.0.0), perl (>= 5.8)
-Standards-Version: 3.7.2
+Standards-Version: 3.8.1
Homepage: http://search.cpan.org/dist/Digest-SHA1/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdigest-sha1-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libdigest-sha1-perl/
More information about the Pkg-perl-cvs-commits
mailing list