Hello community, here is the log from the commit of package perl-Test-Unit for openSUSE:Factory checked in at 2013-07-02 07:40:44 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-Unit (Old) and /work/SRC/openSUSE:Factory/.perl-Test-Unit.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-Unit" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-Unit/perl-Test-Unit.changes 2012-06-12 22:10:19.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Test-Unit.new/perl-Test-Unit.changes 2013-07-02 07:40:46.000000000 +0200 @@ -1,0 +2,6 @@ +Mon Jul 1 08:57:11 UTC 2013 - [email protected] + +- fix test with perl 5.18 (this module should really be dropped, + but kiwi relies on that old stuff) + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-Unit.spec ++++++ --- /var/tmp/diff_new_pack.p6yefG/_old 2013-07-02 07:40:47.000000000 +0200 +++ /var/tmp/diff_new_pack.p6yefG/_new 2013-07-02 07:40:47.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Test-Unit # -# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed ++++++ Test-Unit-0.25.diff ++++++ --- /var/tmp/diff_new_pack.p6yefG/_old 2013-07-02 07:40:47.000000000 +0200 +++ /var/tmp/diff_new_pack.p6yefG/_new 2013-07-02 07:40:47.000000000 +0200 @@ -19,3 +19,25 @@ ); my @tests = (); while (@checks) { +Index: Test-Unit-0.25/lib/Test/Unit/Assert.pm +=================================================================== +--- Test-Unit-0.25.orig/lib/Test/Unit/Assert.pm ++++ Test-Unit-0.25/lib/Test/Unit/Assert.pm +@@ -315,7 +315,7 @@ sub _eq_hash { + + my $ok = 1; + my $bigger = keys %$a1 > keys %$a2 ? $a1 : $a2; +- foreach my $k (keys %$bigger) { ++ foreach my $k (sort keys %$bigger) { + my $e1 = exists $a1->{$k} ? $a1->{$k} : $DNE; + my $e2 = exists $a2->{$k} ? $a2->{$k} : $DNE; + +@@ -484,7 +484,7 @@ sub _format_stack { + (-text => @_ ? join('', @_) : "<undef> unexpected"); + }, + ); +- foreach my $type (keys %assert_subs) { ++ foreach my $type (sort keys %assert_subs) { + my $assertion = Test::Unit::Assertion::CodeRef->new($assert_subs{$type}); + no strict 'refs'; + *{"Test::Unit::Assert::assert_$type"} = -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
