diff options
author | markd <markd> | 2014-07-24 21:38:38 +0000 |
---|---|---|
committer | markd <markd> | 2014-07-24 21:38:38 +0000 |
commit | f18659202ebceac55aee7efa078a3befc223a7ea (patch) | |
tree | c789184c90097c6fa6b0a6933cd490fedd7ae4d4 /www/ap2-perl/patches | |
parent | b59efef82acc60618b21450782d521fe1d95c2be (diff) | |
download | pkgsrc-f18659202ebceac55aee7efa078a3befc223a7ea.tar.gz |
Fix "Use of each() on hash after insertion without resetting hash iterator
results in undefined behavior" complaint from perl 5.20
Diffstat (limited to 'www/ap2-perl/patches')
-rw-r--r-- | www/ap2-perl/patches/patch-Apache-Test_lib_Apache_TestSSLCA.pm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/www/ap2-perl/patches/patch-Apache-Test_lib_Apache_TestSSLCA.pm b/www/ap2-perl/patches/patch-Apache-Test_lib_Apache_TestSSLCA.pm new file mode 100644 index 00000000000..5f821ad9886 --- /dev/null +++ b/www/ap2-perl/patches/patch-Apache-Test_lib_Apache_TestSSLCA.pm @@ -0,0 +1,20 @@ +$NetBSD: patch-Apache-Test_lib_Apache_TestSSLCA.pm,v 1.1 2014/07/24 21:38:38 markd Exp $ + +Fix "Use of each() on hash after insertion without resetting hash iterator results in +undefined behavior" complaint from perl 5.20 + +--- Apache-Test/lib/Apache/TestSSLCA.pm.orig 2011-02-08 02:00:15.000000000 +0000 ++++ Apache-Test/lib/Apache/TestSSLCA.pm +@@ -100,10 +100,10 @@ my $cert_dn = { + }; + + #generate DSA versions of the server certs/keys +-while (my($key, $val) = each %$cert_dn) { ++for my $key (keys %$cert_dn) { + next unless $key =~ /^server/; + my $name = join '_', $key, 'dsa'; +- $cert_dn->{$name} = { %$val }; #copy ++ $cert_dn->{$name} = { %{$cert_dn->{$key}} }; #copy + $cert_dn->{$name}->{OU} =~ s/rsa/dsa/; + } + |