r37924 - in /trunk/libdigest-perl: Changes Digest.pm Digest/base.pm Digest/file.pm MANIFEST META.yml debian/changelog debian/compat debian/control debian/copyright debian/rules t/base.t t/file.t
nhandler-guest at users.alioth.debian.org
nhandler-guest at users.alioth.debian.org
Wed Jun 10 02:58:47 UTC 2009
Author: nhandler-guest
Date: Wed Jun 10 02:58:41 2009
New Revision: 37924
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=37924
Log:
* debian/watch:
- Update to ignore development releases.
* debian/copyright:
- Update to new format
* debian/rules:
- Update to use newer debhelper
* debian/control:
- Add myself to list of Uploaders
- Bump Standards-Version to 3.8.1
- Build-Depend on debhelper (>= 7.0)
* debian/compat:
- Bump to 7
Added:
trunk/libdigest-perl/META.yml
- copied unchanged from r37923, branches/upstream/libdigest-perl/current/META.yml
Modified:
trunk/libdigest-perl/Changes
trunk/libdigest-perl/Digest.pm
trunk/libdigest-perl/Digest/base.pm
trunk/libdigest-perl/Digest/file.pm
trunk/libdigest-perl/MANIFEST
trunk/libdigest-perl/debian/changelog
trunk/libdigest-perl/debian/compat
trunk/libdigest-perl/debian/control
trunk/libdigest-perl/debian/copyright
trunk/libdigest-perl/debian/rules
trunk/libdigest-perl/t/base.t
trunk/libdigest-perl/t/file.t
Modified: trunk/libdigest-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-perl/Changes?rev=37924&op=diff
==============================================================================
--- trunk/libdigest-perl/Changes (original)
+++ trunk/libdigest-perl/Changes Wed Jun 10 02:58:41 2009
@@ -1,4 +1,18 @@
-2006-13-20 Gisle Aas <gisle at ActiveState.com>
+2009-06-09 Gisle Aas <gisle at ActiveState.com>
+
+ Release 1.16.
+
+ Gisle Aas (3):
+ For SHA-1 try Digest::SHA before tryign Digest::SHA1 as suggested by Adam Trickett
+ Support Digest->new("RIPEMD-160") as suggested by Zefram
+ Use 3-arg open for fewer surprises
+
+ Jarkko Hietaniemi (1):
+ Sync up with EBCDIC changes from core perl.
+
+
+
+2006-03-20 Gisle Aas <gisle at ActiveState.com>
Release 1.15.
Modified: trunk/libdigest-perl/Digest.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-perl/Digest.pm?rev=37924&op=diff
==============================================================================
--- trunk/libdigest-perl/Digest.pm (original)
+++ trunk/libdigest-perl/Digest.pm Wed Jun 10 02:58:41 2009
@@ -3,10 +3,10 @@
use strict;
use vars qw($VERSION %MMAP $AUTOLOAD);
-$VERSION = "1.15";
+$VERSION = "1.16";
%MMAP = (
- "SHA-1" => ["Digest::SHA1", ["Digest::SHA", 1], ["Digest::SHA2", 1]],
+ "SHA-1" => [["Digest::SHA", 1], "Digest::SHA1", ["Digest::SHA2", 1]],
"SHA-224" => [["Digest::SHA", 224]],
"SHA-256" => [["Digest::SHA", 256], ["Digest::SHA2", 256]],
"SHA-384" => [["Digest::SHA", 384], ["Digest::SHA2", 384]],
@@ -16,6 +16,7 @@
"CRC-16" => [["Digest::CRC", type => "crc16"]],
"CRC-32" => [["Digest::CRC", type => "crc32"]],
"CRC-CCITT" => [["Digest::CRC", type => "crcccitt"]],
+ "RIPEMD-160" => "Crypt::PIPEMD160",
);
sub new
Modified: trunk/libdigest-perl/Digest/base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-perl/Digest/base.pm?rev=37924&op=diff
==============================================================================
--- trunk/libdigest-perl/Digest/base.pm (original)
+++ trunk/libdigest-perl/Digest/base.pm Wed Jun 10 02:58:41 2009
@@ -2,7 +2,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = "1.00";
+$VERSION = "1.16";
# subclass is supposed to implement at least these
sub new;
Modified: trunk/libdigest-perl/Digest/file.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-perl/Digest/file.pm?rev=37924&op=diff
==============================================================================
--- trunk/libdigest-perl/Digest/file.pm (original)
+++ trunk/libdigest-perl/Digest/file.pm Wed Jun 10 02:58:41 2009
@@ -8,7 +8,7 @@
use vars qw($VERSION @ISA @EXPORT_OK);
-$VERSION = "1.00";
+$VERSION = "1.16";
@ISA = qw(Exporter);
@EXPORT_OK = qw(digest_file_ctx digest_file digest_file_hex digest_file_base64);
@@ -16,7 +16,7 @@
my $file = shift;
croak("No digest algorithm specified") unless @_;
local *F;
- open(F, $file) || croak("Can't open '$file': $!");
+ open(F, "<", $file) || croak("Can't open '$file': $!");
binmode(F);
my $ctx = Digest->new(@_);
$ctx->addfile(*F);
Modified: trunk/libdigest-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-perl/MANIFEST?rev=37924&op=diff
==============================================================================
--- trunk/libdigest-perl/MANIFEST (original)
+++ trunk/libdigest-perl/MANIFEST Wed Jun 10 02:58:41 2009
@@ -9,3 +9,4 @@
t/base.t
t/digest.t
t/file.t
+META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libdigest-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-perl/debian/changelog?rev=37924&op=diff
==============================================================================
--- trunk/libdigest-perl/debian/changelog (original)
+++ trunk/libdigest-perl/debian/changelog Wed Jun 10 02:58:41 2009
@@ -1,22 +1,29 @@
-libdigest-perl (1.15-3) UNRELEASED; urgency=low
+libdigest-perl (1.16-1) unstable; 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.
- * debian/rules:
- - don't install empty /usr/lib/perl5 directory
- - -stamp targets now depend only on other -stamp targets
- * debian/rules: delete /usr/lib/perl5 only if it exists.
* debian/watch: use dist-based URL.
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
(source stanza).
* debian/control: Added: ${misc:Depends} to Depends: field.
[ Nathan Handler ]
- * debian/watch: Update to ignore development releases.
+ * debian/watch:
+ - Update to ignore development releases.
+ * debian/copyright:
+ - Update to new format
+ * debian/rules:
+ - Update to use newer debhelper
+ * debian/control:
+ - Add myself to list of Uploaders
+ - Bump Standards-Version to 3.8.1
+ - Build-Depend on debhelper (>= 7.0)
+ * debian/compat:
+ - Bump to 7
- -- gregor herrmann <gregor+debian at comodo.priv.at> Tue, 09 Oct 2007 22:29:04 +0200
+ -- Nathan Handler <nhandler at ubuntu.com> Wed, 10 Jun 2009 02:58:32 +0000
libdigest-perl (1.15-2) unstable; urgency=low
Modified: trunk/libdigest-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-perl/debian/compat?rev=37924&op=diff
==============================================================================
--- trunk/libdigest-perl/debian/compat (original)
+++ trunk/libdigest-perl/debian/compat Wed Jun 10 02:58:41 2009
@@ -1,1 +1,1 @@
-5
+7
Modified: trunk/libdigest-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-perl/debian/control?rev=37924&op=diff
==============================================================================
--- trunk/libdigest-perl/debian/control (original)
+++ trunk/libdigest-perl/debian/control Wed Jun 10 02:58:41 2009
@@ -2,10 +2,11 @@
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>
-Build-Depends: debhelper (>= 5.0)
+Uploaders: Zak B. Elep <zakame at spunge.org>, Gunnar Wolf <gwolf at debian.org>,
+ Nathan Handler <nhandler at ubuntu.com>
+Build-Depends: debhelper (>= 7.0)
Build-Depends-Indep: perl (>= 5.6.0-17), libdigest-md5-perl | perl (>= 5.8)
-Standards-Version: 3.7.2
+Standards-Version: 3.8.1
Homepage: http://search.cpan.org/dist/Digest/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdigest-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libdigest-perl/
Modified: trunk/libdigest-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-perl/debian/copyright?rev=37924&op=diff
==============================================================================
--- trunk/libdigest-perl/debian/copyright (original)
+++ trunk/libdigest-perl/debian/copyright Wed Jun 10 02:58:41 2009
@@ -1,28 +1,32 @@
-This is Debian GNU/Linux's prepackaged version of Digest. This is a
-perl library implementing a generic interface to message-digest
-algorithms.
+Format-Specification:
+ http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
+Upstream-Maintainer: Gisle Aas <gisle at aas.no>
+Upstream-Source: http://search.cpan.org/dist/Digest/
+Upstream-Name: Digest
-This package was put together by Michael Alan Dorman <mdorman at debian.org>.
-Matthias Urlichs <smurf at debian.org> took over maintenance upon the
-release of version 1.08-2 . However, due to his heavy workload, he
-opted to put this package up for adoption.
-Zak B. Elep <zakame at spunge.org> now maintains this package.
+Files: *
+Copyright: 1998-2006, Gisle Aas <gisle at aas.no>
+ 1995-1996, Neil Winton
+License-Alias: Perl
+License: Artistic | GPL-1+
-The original sources should always be available from the Comprehensive Perl
-Archive Network (CPAN). Visit <URL:http://www.perl.com/CPAN/> to find a CPAN
-site near you.
+Files: debian/*
+Copyright: 2001-2009, Michael Alan Dorman <mdorman at debian.org>
+License-Alias: Perl
+License: Artistic | GPL-1+
+X-Comment: It is assumed that package maintainers have licensed their work
+ under terms compatible with upstream licensing terms.
-The only change for the Debian package was the addition of the debian/
-files.
+License: Artistic
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in /usr/share/common-licenses/Artistic
-The Digest copright is as follows:
-
-Copyright 1998-2001 Gisle Aas.
-Copyright 1995-1996 Neil Winton.
-
-This library is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-Larry Wall's "Artistic License" for perl can be found in
-/usr/share/common-licenses/Artistic, and the GPL can be found in
-/usr/share/common-licenses/GPL-2.
+License: GPL-1+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
Modified: trunk/libdigest-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-perl/debian/rules?rev=37924&op=diff
==============================================================================
--- trunk/libdigest-perl/debian/rules (original)
+++ trunk/libdigest-perl/debian/rules Wed Jun 10 02:58:41 2009
@@ -1,64 +1,23 @@
#!/usr/bin/make -f
-# -*- Makefile -*-
-
-# Use debhelper V. 4
-
-PERL ?= /usr/bin/perl
-
-b := $(shell pwd)/debian/libdigest-perl
-
-arrange: arrange-stamp
-arrange-stamp: install-stamp
- dh_testdir
- dh_installdirs
- touch arrange-stamp
-
-binary: binary-stamp
-binary-stamp: binary-indep-stamp binary-arch-stamp
- dh_testdir
- touch binary-stamp
-
-binary-arch: binary-arch-stamp
-binary-arch-stamp: arrange-stamp
- dh_testdir
- touch binary-arch-stamp
-
-binary-indep: binary-indep-stamp
-binary-indep-stamp: arrange-stamp
- dh_testdir
- dh_testroot
- dh_installdocs -n README
- dh_installexamples
- dh_installchangelogs Changes
- dh_link
- dh_compress
- dh_fixperms
- dh_installdeb
- dh_perl
- dh_gencontrol
- dh_md5sums
- dh_builddeb
- touch binary-indep-stamp
build: build-stamp
build-stamp:
- dh_testdir
- $(PERL) Makefile.PL INSTALLDIRS=vendor
- $(MAKE)
- $(MAKE) test
- touch build-stamp
+ dh build
+ touch $@
clean:
- dh_testdir
- dh_testroot
- if [ -e Makefile ]; then $(MAKE) -i distclean; fi
- dh_clean arrange-stamp binary-stamp binary-arch-stamp binary-indep-stamp build-stamp install-stamp
+ dh $@
install: install-stamp
install-stamp: build-stamp
- dh_testdir
- $(MAKE) install PREFIX=$(b)/usr
- [ ! -d $(b)/usr/lib/perl5 ] || rmdir --ignore-fail-on-non-empty --parents --verbose $(b)/usr/lib/perl5
- touch install-stamp
+ dh install
+ touch $@
-.PHONY: arrange binary binary-arch binary-indep build clean install
+binary-arch:
+
+binary-indep: install
+ dh $@
+
+binary: binary-arch binary-indep
+
+.PHONY: binary binary-arch binary-indep install clean build
Modified: trunk/libdigest-perl/t/base.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-perl/t/base.t?rev=37924&op=diff
==============================================================================
--- trunk/libdigest-perl/t/base.t (original)
+++ trunk/libdigest-perl/t/base.t Wed Jun 10 02:58:41 2009
@@ -32,17 +32,25 @@
my $ctx = LenDigest->new;
ok($ctx->digest, "X0000");
-ok($ctx->hexdigest, "5830303030");
-ok($ctx->b64digest, "WDAwMDA");
+
+my $EBCDIC = ord('A') == 193;
+
+if ($EBCDIC) {
+ ok($ctx->hexdigest, "e7f0f0f0f0");
+ ok($ctx->b64digest, "5/Dw8PA");
+} else {
+ ok($ctx->hexdigest, "5830303030");
+ ok($ctx->b64digest, "WDAwMDA");
+}
$ctx->add("foo");
ok($ctx->digest, "f0003");
$ctx->add("foo");
-ok($ctx->hexdigest, "6630303033");
+ok($ctx->hexdigest, $EBCDIC ? "86f0f0f0f3" : "6630303033");
$ctx->add("foo");
-ok($ctx->b64digest, "ZjAwMDM");
+ok($ctx->b64digest, $EBCDIC ? "hvDw8PM" : "ZjAwMDM");
open(F, ">xxtest$$") || die;
binmode(F);
@@ -61,7 +69,7 @@
};
ok($@ =~ /^Number of bits must be multiple of 8/);
-$ctx->add_bits("01010101");
+$ctx->add_bits($EBCDIC ? "11100100" : "01010101");
ok($ctx->digest, "U0001");
eval {
Modified: trunk/libdigest-perl/t/file.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdigest-perl/t/file.t?rev=37924&op=diff
==============================================================================
--- trunk/libdigest-perl/t/file.t (original)
+++ trunk/libdigest-perl/t/file.t Wed Jun 10 02:58:41 2009
@@ -37,8 +37,14 @@
close(F) || die "Can't write '$file': $!";
ok(digest_file($file, "Foo"), "0005");
-ok(digest_file_hex($file, "Foo"), "30303035");
-ok(digest_file_base64($file, "Foo"), "MDAwNQ");
+
+if (ord('A') == 193) { # EBCDIC.
+ ok(digest_file_hex($file, "Foo"), "f0f0f0f5");
+ ok(digest_file_base64($file, "Foo"), "8PDw9Q");
+} else {
+ ok(digest_file_hex($file, "Foo"), "30303035");
+ ok(digest_file_base64($file, "Foo"), "MDAwNQ");
+}
unlink($file) || warn "Can't unlink '$file': $!";
More information about the Pkg-perl-cvs-commits
mailing list