15 lines
463 B
Text
15 lines
463 B
Text
|
Newer Perl returns hash keys in random order, make error deterministic.
|
||
|
|
|
||
|
|
Index: lib/Test/Unit/Assert.pm
|
||
|
|
--- lib/Test/Unit/Assert.pm.orig
|
||
|
|
+++ 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;
|
||
|
|
|