SecBSD's official ports repository
This commit is contained in:
commit
2c0afcbbf3
64331 changed files with 5339189 additions and 0 deletions
14
devel/p5-Test-Unit/patches/patch-lib_Test_Unit_Assert_pm
Normal file
14
devel/p5-Test-Unit/patches/patch-lib_Test_Unit_Assert_pm
Normal file
|
@ -0,0 +1,14 @@
|
|||
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;
|
||||
|
Loading…
Add table
Add a link
Reference in a new issue