| From ansgar [...] 43-1.org Sat Jul 31 07: | 31:11 2010 |
| MIME-Version: | 1.0 |
| X-Spam-Status: | No, score=-10.038 tagged_above=-99.9 required=10 tests=[AWL=-0.125, BAYES_00=-2.599, RCVD_IN_DNSWL_HI=-8, SPF_NEUTRAL=0.686] autolearn=ham |
| X-Spam-Flag: | NO |
| X-Virus-Checked: | Checked by ClamAV on 16.mx.develooper.com |
| Content-Type: | multipart/mixed; boundary="=-=-=" |
| Message-ID: | <87pqy3zy1d.fsf [...] marvin.43-1.org> |
| X-Virus-Scanned: | Debian amavisd-new at bestpractical.com |
| X-Spam-Score: | -10.038 |
| Received: | from localhost (localhost [127.0.0.1]) by hipster.bestpractical.com (Postfix) with ESMTP id D837B240896 for <cpan-bug+Crypt-MySQL [...] hipster.bestpractical.com>; Sat, 31 Jul 2010 07:31:11 -0400 (EDT) |
| Received: | from hipster.bestpractical.com ([127.0.0.1]) by localhost (hipster.bestpractical.com [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id oUS8Sk0IC4gc for <cpan-bug+Crypt-MySQL [...] hipster.bestpractical.com>; Sat, 31 Jul 2010 07:31:10 -0400 (EDT) |
| Received: | from la.mx.develooper.com (x1.develooper.com [207.171.7.70]) by hipster.bestpractical.com (Postfix) with SMTP id 14BBC240854 for <bug-Crypt-MySQL [...] rt.cpan.org>; Sat, 31 Jul 2010 07:31:09 -0400 (EDT) |
| Received: | (qmail 14372 invoked by uid 103); 31 Jul 2010 11:33:10 -0000 |
| Received: | from x16.dev (10.0.100.26) by x1.dev with QMQP; 31 Jul 2010 11:33:10 -0000 |
| Received: | from tsukuyomi.43-1.org (HELO tsukuyomi.43-1.org) (188.40.248.50) by 16.mx.develooper.com (qpsmtpd/0.80) with ESMTP; Sat, 31 Jul 2010 04:33:08 -0700 |
| Received: | from marvin.43-1.org (202-71-92-76.ap-w01.canvas.ne.jp [202.71.92.76]) by tsukuyomi.43-1.org (Postfix) with ESMTPS id 71CB320D21C4 for <bug-Crypt-MySQL [...] rt.cpan.org>; Sat, 31 Jul 2010 13:33:04 +0200 (CEST) |
| Received: | from ansgar by marvin.43-1.org with local (Exim 4.72) (envelope-from <ansgar [...] 43-1.org>) id 1OfAJK-0000h8-3W for bug-Crypt-MySQL [...] rt.cpan.org; Sat, 31 Jul 2010 20:33:02 +0900 |
| Delivered-To: | cpan-bug+Crypt-MySQL [...] hipster.bestpractical.com |
| User-Agent: | Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux) |
| Subject: | [PATCH] Use Digest::SHA instead of Digest::SHA1 |
| Return-Path: | <ansgar [...] 43-1.org> |
| X-RT-Mail-Extension: | crypt-mysql |
| X-Original-To: | cpan-bug+Crypt-MySQL [...] hipster.bestpractical.com |
| X-Spam-Check-BY: | 16.mx.develooper.com |
| Date: | Sat, 31 Jul 2010 20:33:02 +0900 |
| X-Spam-Level: | |
| To: | bug-Crypt-MySQL [...] rt.cpan.org |
| From: | Ansgar Burchardt <ANSGAR [...] cpan.org> |
| Content-Length: | 0 |
| X-RT-Original-Encoding: | ascii |
| content-type: | text/plain; charset="utf-8" |
| Content-Length: | 301 |
Hi,
the attached patch changes Crypt::MySQL to use the Digest::SHA module
instead of Digest::SHA1. Digest::SHA is part of the standard perl
distribution since perl v5.9.3 so this reduces the number of external
dependencies by one.
Please consider applying it for the next release.
Regards,
Ansgar
| Content-Type: | text/x-diff |
| content-disposition: | inline; filename="use-Digest-SHA.patch" |
| Content-Length: | 1166 |
only in patch2:
unchanged:
--- libcrypt-mysql-perl-0.04.orig/Makefile.PL
+++ libcrypt-mysql-perl-0.04/Makefile.PL
@@ -11,7 +11,7 @@
PL_FILES => {},
PREREQ_PM => {
'Test::More' => 0,
- 'Digest::SHA1' => 0,
+ 'Digest::SHA' => 0,
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'Crypt-MySQL-*' },
only in patch2:
unchanged:
--- libcrypt-mysql-perl-0.04.orig/Build.PL
+++ libcrypt-mysql-perl-0.04/Build.PL
@@ -9,7 +9,7 @@
dist_version_from => 'lib/Crypt/MySQL.pm',
requires => {
'Test::More' => 0,
- 'Digest::SHA1' => 0,
+ 'Digest::SHA' => 0,
},
add_to_cleanup => [ 'Crypt-MySQL-*' ],
);
only in patch2:
unchanged:
--- libcrypt-mysql-perl-0.04.orig/lib/Crypt/MySQL.pm
+++ libcrypt-mysql-perl-0.04/lib/Crypt/MySQL.pm
@@ -2,7 +2,7 @@
use strict;
use vars qw($VERSION @ISA @EXPORT_OK);
-use Digest::SHA1 qw(sha1 sha1_hex);
+use Digest::SHA qw(sha1 sha1_hex);
BEGIN {
$VERSION = '0.04';
@@ -50,6 +50,6 @@
=head1 SEE ALSO
-L<DBD::mysql> L<Digest::SHA1>
+L<DBD::mysql> L<Digest::SHA>
=cut