r9949 - in /trunk/libdigest-md5-file-perl: Changes File.pm MANIFEST META.yml README debian/changelog t/1.t t/hello-world t/teststruct/ t/teststruct/a t/teststruct/b t/teststruct/subdir/ t/teststruct/subdir/c
ntyni-guest at users.alioth.debian.org
ntyni-guest at users.alioth.debian.org
Wed Nov 28 19:38:33 UTC 2007
Author: ntyni-guest
Date: Wed Nov 28 19:38:33 2007
New Revision: 9949
URL: http://svn.debian.org/wsvn/?sc=1&rev=9949
Log:
* New upstream release.
Added:
trunk/libdigest-md5-file-perl/t/hello-world
trunk/libdigest-md5-file-perl/t/teststruct/
trunk/libdigest-md5-file-perl/t/teststruct/a
trunk/libdigest-md5-file-perl/t/teststruct/b
trunk/libdigest-md5-file-perl/t/teststruct/subdir/
trunk/libdigest-md5-file-perl/t/teststruct/subdir/c
Modified:
trunk/libdigest-md5-file-perl/Changes
trunk/libdigest-md5-file-perl/File.pm
trunk/libdigest-md5-file-perl/MANIFEST
trunk/libdigest-md5-file-perl/META.yml
trunk/libdigest-md5-file-perl/README
trunk/libdigest-md5-file-perl/debian/changelog
trunk/libdigest-md5-file-perl/t/1.t
Modified: trunk/libdigest-md5-file-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libdigest-md5-file-perl/Changes?rev=9949&op=diff
==============================================================================
--- trunk/libdigest-md5-file-perl/Changes (original)
+++ trunk/libdigest-md5-file-perl/Changes Wed Nov 28 19:38:33 2007
@@ -1,4 +1,9 @@
Revision history for Perl extension Digest::MD5::File.
+
+0.06 Sat Nov 24 12:15:26 2007
+ - rt 30618
+ - rt 29653
+ - two more tests
0.05 Wed Jun 7 18:35:42 2006
- made it still load under perl's without Encode (older than 5.7.3) (of course Encoding doesn't work...)
Modified: trunk/libdigest-md5-file-perl/File.pm
URL: http://svn.debian.org/wsvn/trunk/libdigest-md5-file-perl/File.pm?rev=9949&op=diff
==============================================================================
--- trunk/libdigest-md5-file-perl/File.pm (original)
+++ trunk/libdigest-md5-file-perl/File.pm Wed Nov 28 19:38:33 2007
@@ -41,7 +41,7 @@
Digest::MD5->import(keys %imp);
}
-our $VERSION = '0.05';
+our $VERSION = '0.06';
my $getfh = sub {
my $file = shift;
@@ -57,15 +57,6 @@
else { return undef; }
};
-my $utf8fh = sub {
- my @utf8;
- my $fh = shift;
- for(<$fh>) {
- push @utf8, Encode::encode_utf8($_);
- }
- return @utf8;
-};
-
my $getur = sub {
my $res = LWP::UserAgent->new->get(shift());
return $res->is_success ? $res->content : undef;
@@ -103,9 +94,9 @@
my $_dirver = File::Spec->catdir($dir, $file);
my $full = -d $_dirver ? $_dirver
: File::Spec->catfile($dir, $file);
- my $short = $full;
- $short =~ s{^$base[/]?}{}; # use File::Spec instead
-
+
+ my $short = File::Spec->abs2rel( $full, $base );
+
if(-l $full) {
my $target = readlink $full;
$full = $target if -d $target;
@@ -153,8 +144,11 @@
my ($bn,$ut) = @_;
local $BINMODE = $bn if defined $bn;
local $UTF8 = $ut if defined $ut;
- return Digest::MD5::md5(<$fh>) if !$UTF8;
- return Digest::MD5::md5($utf8fh->($fh));
+ my $md5 = Digest::MD5->new();
+ while(<$fh>) {
+ $md5->add( $UTF8 ? Encode::encode_utf8($_) : $_ );
+ }
+ return $md5->digest;
}
sub file_md5_hex {
@@ -162,8 +156,11 @@
my ($bn,$ut) = @_;
local $BINMODE = $bn if defined $bn;
local $UTF8 = $ut if defined $ut;
- return Digest::MD5::md5_hex(<$fh>) if !$UTF8;
- return Digest::MD5::md5_hex($utf8fh->($fh));
+ my $md5 = Digest::MD5->new();
+ while(<$fh>) {
+ $md5->add( $UTF8 ? Encode::encode_utf8($_) : $_ );
+ }
+ return $md5->hexdigest;
}
sub file_md5_base64 {
@@ -171,8 +168,12 @@
my ($bn,$ut) = @_;
local $BINMODE = $bn if defined $bn;
local $UTF8 = $ut if defined $ut;
- return Digest::MD5::md5_base64(<$fh>) if !$UTF8;
- return Digest::MD5::md5_base64($utf8fh->($fh));
+
+ my $md5 = Digest::MD5->new();
+ while(<$fh>) {
+ $md5->add( $UTF8 ? Encode::encode_utf8($_) : $_ );
+ }
+ return $md5->b64digest;
}
sub url_md5 {
Modified: trunk/libdigest-md5-file-perl/MANIFEST
URL: http://svn.debian.org/wsvn/trunk/libdigest-md5-file-perl/MANIFEST?rev=9949&op=diff
==============================================================================
--- trunk/libdigest-md5-file-perl/MANIFEST (original)
+++ trunk/libdigest-md5-file-perl/MANIFEST Wed Nov 28 19:38:33 2007
@@ -4,4 +4,8 @@
MANIFEST
README
t/1.t
+t/hello-world
+t/teststruct/a
+t/teststruct/b
+t/teststruct/subdir/c
META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libdigest-md5-file-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libdigest-md5-file-perl/META.yml?rev=9949&op=diff
==============================================================================
--- trunk/libdigest-md5-file-perl/META.yml (original)
+++ trunk/libdigest-md5-file-perl/META.yml Wed Nov 28 19:38:33 2007
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Digest-MD5-File
-version: 0.05
+version: 0.06
version_from: File.pm
installdirs: site
requires:
@@ -9,4 +9,4 @@
LWP::UserAgent: 0
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.30
Modified: trunk/libdigest-md5-file-perl/README
URL: http://svn.debian.org/wsvn/trunk/libdigest-md5-file-perl/README?rev=9949&op=diff
==============================================================================
--- trunk/libdigest-md5-file-perl/README (original)
+++ trunk/libdigest-md5-file-perl/README Wed Nov 28 19:38:33 2007
@@ -1,4 +1,4 @@
-Digest/MD5/File version 0.05
+Digest/MD5/File version 0.06
============================
See Pod for documentation or
Modified: trunk/libdigest-md5-file-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libdigest-md5-file-perl/debian/changelog?rev=9949&op=diff
==============================================================================
--- trunk/libdigest-md5-file-perl/debian/changelog (original)
+++ trunk/libdigest-md5-file-perl/debian/changelog Wed Nov 28 19:38:33 2007
@@ -1,4 +1,4 @@
-libdigest-md5-file-perl (0.05-2) UNRELEASED; urgency=low
+libdigest-md5-file-perl (0.06-1) UNRELEASED; urgency=low
[ gregor herrmann ]
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
@@ -6,9 +6,10 @@
Vcs-Svn fields.
[ Niko Tyni ]
+ * New upstream release.
* Update debian/watch.
- -- Niko Tyni <ntyni at iki.fi> Wed, 28 Nov 2007 21:28:49 +0200
+ -- Niko Tyni <ntyni at iki.fi> Wed, 28 Nov 2007 21:30:00 +0200
libdigest-md5-file-perl (0.05-1) unstable; urgency=low
Modified: trunk/libdigest-md5-file-perl/t/1.t
URL: http://svn.debian.org/wsvn/trunk/libdigest-md5-file-perl/t/1.t?rev=9949&op=diff
==============================================================================
--- trunk/libdigest-md5-file-perl/t/1.t (original)
+++ trunk/libdigest-md5-file-perl/t/1.t Wed Nov 28 19:38:33 2007
@@ -1,15 +1,20 @@
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl 1.t'
-
-#########################
-
-# change 'tests => 1' to 'tests => last_test_to_print';
-
-use Test::More tests => 1;
+use Test::More tests => 3;
BEGIN { use_ok('Digest::MD5::File') };
-#########################
-# Insert your test code below, the Test::More module is use()ed here so read
-# its man page ( perldoc Test::More ) for help writing this test script.
+chdir 't';
+ok( Digest::MD5::File::file_md5_hex('hello-world') eq '2cad20c19a8eb9bb11a9f76527aec9bc', 'simple calc' );
+my $hr = Digest::MD5::File::dir_md5_hex('teststruct');
+
+is_deeply(
+ $hr,
+ {
+ 'a' => 'b1946ac92492d2347c6235b4d2611184',
+ 'b' => '32d6c11747e03715521007d8c84b5aff',
+ 'subdir' => '',
+ File::Spec->catfile( qw(subdir c) ) => 'df0590f214a2eaf9a638f43838132f67',
+ },
+ 'directory struct',
+);
+chdir '..';
Added: trunk/libdigest-md5-file-perl/t/hello-world
URL: http://svn.debian.org/wsvn/trunk/libdigest-md5-file-perl/t/hello-world?rev=9949&op=file
==============================================================================
--- trunk/libdigest-md5-file-perl/t/hello-world (added)
+++ trunk/libdigest-md5-file-perl/t/hello-world Wed Nov 28 19:38:33 2007
@@ -1,0 +1,1 @@
+HELLO WORLD
Added: trunk/libdigest-md5-file-perl/t/teststruct/a
URL: http://svn.debian.org/wsvn/trunk/libdigest-md5-file-perl/t/teststruct/a?rev=9949&op=file
==============================================================================
--- trunk/libdigest-md5-file-perl/t/teststruct/a (added)
+++ trunk/libdigest-md5-file-perl/t/teststruct/a Wed Nov 28 19:38:33 2007
@@ -1,0 +1,1 @@
+hello
Added: trunk/libdigest-md5-file-perl/t/teststruct/b
URL: http://svn.debian.org/wsvn/trunk/libdigest-md5-file-perl/t/teststruct/b?rev=9949&op=file
==============================================================================
--- trunk/libdigest-md5-file-perl/t/teststruct/b (added)
+++ trunk/libdigest-md5-file-perl/t/teststruct/b Wed Nov 28 19:38:33 2007
@@ -1,0 +1,1 @@
+goodbye
Added: trunk/libdigest-md5-file-perl/t/teststruct/subdir/c
URL: http://svn.debian.org/wsvn/trunk/libdigest-md5-file-perl/t/teststruct/subdir/c?rev=9949&op=file
==============================================================================
--- trunk/libdigest-md5-file-perl/t/teststruct/subdir/c (added)
+++ trunk/libdigest-md5-file-perl/t/teststruct/subdir/c Wed Nov 28 19:38:33 2007
@@ -1,0 +1,1 @@
+howdy
More information about the Pkg-perl-cvs-commits
mailing list