diff -Nru libtest-deep-perl-0.107/CHANGES libtest-deep-perl-0.108/CHANGES --- libtest-deep-perl-0.107/CHANGES 2010-09-29 12:24:08.000000000 +0000 +++ libtest-deep-perl-0.108/CHANGES 2010-10-16 02:24:43.000000000 +0000 @@ -1,5 +1,10 @@ -0.170 2009-09-28 +0.108 2009-1015 + + simple (stringwise) comparison should now be much faster (thanks, + NCLEATON) + +0.107 2009-09-28 New maintainer: Ricardo Signes (rjbs) diff -Nru libtest-deep-perl-0.107/debian/changelog libtest-deep-perl-0.108/debian/changelog --- libtest-deep-perl-0.107/debian/changelog 2010-10-01 14:53:53.000000000 +0000 +++ libtest-deep-perl-0.108/debian/changelog 2010-10-17 10:22:23.000000000 +0000 @@ -1,3 +1,10 @@ +libtest-deep-perl (0.108-1) unstable; urgency=low + + * New upstream release. + * Update my email address. + + -- Ansgar Burchardt Sun, 17 Oct 2010 12:22:15 +0200 + libtest-deep-perl (0.107-1) unstable; urgency=low [ Ryan Niebur ] diff -Nru libtest-deep-perl-0.107/debian/control libtest-deep-perl-0.108/debian/control --- libtest-deep-perl-0.107/debian/control 2010-10-01 14:53:53.000000000 +0000 +++ libtest-deep-perl-0.108/debian/control 2010-10-17 10:21:59.000000000 +0000 @@ -4,7 +4,7 @@ Maintainer: Debian Perl Group Uploaders: Ernesto Hernández-Novich (USB) , Ryan Niebur , Jonathan Yu , - Ansgar Burchardt + Ansgar Burchardt Build-Depends: debhelper (>= 7) Build-Depends-Indep: perl, libtest-tester-perl (>= 0.107), libtest-nowarnings-perl diff -Nru libtest-deep-perl-0.107/lib/Test/Deep.pm libtest-deep-perl-0.108/lib/Test/Deep.pm --- libtest-deep-perl-0.107/lib/Test/Deep.pm 2010-09-29 11:41:10.000000000 +0000 +++ libtest-deep-perl-0.108/lib/Test/Deep.pm 2010-10-16 02:39:16.000000000 +0000 @@ -27,7 +27,7 @@ $Snobby $Expects $DNE $DNE_ADDR $Shallow ); -$VERSION = '0.107'; +$VERSION = '0.108'; $VERSION = eval $VERSION; require Exporter; @@ -49,35 +49,35 @@ # if no sub name is supplied then we use the package name in lower case my %constructors = ( - Number => "num", - Methods => "", - ListMethods => "", - String => "str", - Boolean => "bool", - ScalarRef => "scalref", - ScalarRefOnly => "", - Array => "", - ArrayEach => "array_each", - ArrayElementsOnly => "", - Hash => "", - HashEach => "hash_each", - Regexp => "re", - RegexpMatches => "", - RegexpOnly => "", - RegexpRef => "", - Ignore => "", - Shallow => "", - Any => "", - All => "", - Isa => "Isa", - RegexpRefOnly => "", - RefType => "", - Blessed => "", - ArrayLength => "", - ArrayLengthOnly => "", - HashKeys => "", - HashKeysOnly => "", - Code => "", + All => "", + Any => "", + Array => "", + ArrayEach => "array_each", + ArrayElementsOnly => "", + ArrayLength => "", + ArrayLengthOnly => "", + Blessed => "", + Boolean => "bool", + Code => "", + Hash => "", + HashEach => "hash_each", + HashKeys => "", + HashKeysOnly => "", + Ignore => "", + Isa => "Isa", + ListMethods => "", + Methods => "", + Number => "num", + RefType => "", + Regexp => "re", + RegexpMatches => "", + RegexpOnly => "", + RegexpRef => "", + RegexpRefOnly => "", + ScalarRef => "scalref", + ScalarRefOnly => "", + Shallow => "", + String => "str", ); while (my ($pkg, $name) = each %constructors) @@ -256,6 +256,19 @@ { my ($d1, $d2) = @_; + if (!ref $d1 and !ref $d2) + { + # Shortcut comparison for the non-reference case. + if (defined $d1) + { + return 1 if defined $d2 and $d1 eq $d2; + } + else + { + return 1 if !defined $d2; + } + } + if (! $Expects and ref($d1) and UNIVERSAL::isa($d1, "Test::Deep::Cmp")) { my $where = $Stack->render('$data'); diff -Nru libtest-deep-perl-0.107/lib/Test/Deep.pod libtest-deep-perl-0.108/lib/Test/Deep.pod --- libtest-deep-perl-0.107/lib/Test/Deep.pod 2010-09-29 12:25:10.000000000 +0000 +++ libtest-deep-perl-0.108/lib/Test/Deep.pod 2010-09-29 12:43:20.000000000 +0000 @@ -21,7 +21,7 @@ cmp_deeply( \@array, - [$hash1, $hash2, ignore( + [$hash1, $hash2, ignore()], "first 2 elements are as expected, ignoring 3" ); diff -Nru libtest-deep-perl-0.107/Makefile.PL libtest-deep-perl-0.108/Makefile.PL --- libtest-deep-perl-0.107/Makefile.PL 2010-09-29 12:20:55.000000000 +0000 +++ libtest-deep-perl-0.108/Makefile.PL 2010-10-16 02:28:22.000000000 +0000 @@ -11,25 +11,25 @@ my $tt_prereq = "0.04"; if (eval { require Test::Tester; require Test::Builder; 1 } && - $Test::Tester::VERSION <= 0.106 && - $Test::Builder::VERSION >= 0.78) { + $Test::Tester::VERSION <= 0.106 && + $Test::Builder::VERSION >= 0.78) { $tt_prereq = "0.107"; } WriteMakefile( - AUTHOR => 'Fergal Daly ', - NAME => 'Test::Deep', - VERSION_FROM => './lib/Test/Deep.pm', - PREREQ_PM => { - 'Test::More' => '0', - 'Test::Tester' => $tt_prereq, - 'Test::NoWarnings' => '0.02', - 'Scalar::Util' => '1.09', + AUTHOR => 'Fergal Daly ', + NAME => 'Test::Deep', + VERSION_FROM => './lib/Test/Deep.pm', + PREREQ_PM => { + 'Test::More' => '0', + 'Test::Tester' => $tt_prereq, + 'Test::NoWarnings' => '0.02', + 'Scalar::Util' => '1.09', - # apparently CPAN doesn't get the version of Scalar::Util - 'List::Util' => '1.09', - }, + # apparently CPAN doesn't get the version of Scalar::Util + 'List::Util' => '1.09', + }, ($] < 5.010 ? (INSTALLDIRS => 'perl') : ()), ); diff -Nru libtest-deep-perl-0.107/META.yml libtest-deep-perl-0.108/META.yml --- libtest-deep-perl-0.107/META.yml 2010-09-29 12:25:33.000000000 +0000 +++ libtest-deep-perl-0.108/META.yml 2010-10-16 02:40:07.000000000 +0000 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: Test-Deep -version: 0.107 +version: 0.108 abstract: ~ author: - Fergal Daly