diff options
author | Andy Polyakov <appro@openssl.org> | 2016-08-12 16:25:33 +0200 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2016-08-16 12:43:44 +0200 |
commit | f4941736a97de6347d35f6a4bcc574d541e1164f (patch) | |
tree | b593b940824ae7259d312c33fb14c2503072daa0 | |
parent | 31c34a3e2f2a2421f66f1ab2a1fcc98e28d01848 (diff) | |
download | openssl-f4941736a97de6347d35f6a4bcc574d541e1164f.tar.gz |
test/ssl_test.tmpl: make it work with elderly perl.
Reviewed-by: Rich Salz <rsalz@openssl.org>
-rw-r--r-- | test/ssl_test.tmpl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/ssl_test.tmpl b/test/ssl_test.tmpl index bdbfb11ace..9506837f84 100644 --- a/test/ssl_test.tmpl +++ b/test/ssl_test.tmpl @@ -90,35 +90,35 @@ client = {-$testname-}-client{- if ($server{"extra"}) { $OUT .= "\n[$testname-server-extra]\n"; - foreach my $key (sort keys $server{"extra"}) { + foreach my $key (sort keys %{$server{"extra"}}) { $OUT .= qq{$key} . " = " . qq{$server{"extra"}{$key}\n} if defined $server{"extra"}{$key}; } } if (%server2 && $server2{"extra"}) { $OUT .= "\n[$testname-server2-extra]\n"; - foreach my $key (sort keys $server2{"extra"}) { + foreach my $key (sort keys %{$server2{"extra"}}) { $OUT .= qq{$key} . " = " . qq{$server2{"extra"}{$key}\n} if defined $server2{"extra"}{$key}; } } if (%resume_server && $resume_server{"extra"}) { $OUT .= "\n[$testname-resume-server-extra]\n"; - foreach my $key (sort keys $resume_server{"extra"}) { + foreach my $key (sort keys %{$resume_server{"extra"}}) { $OUT .= qq{$key} . " = " . qq{$resume_server{"extra"}{$key}\n} if defined $resume_server{"extra"}{$key}; } } if ($client{"extra"}) { $OUT .= "\n[$testname-client-extra]\n"; - foreach my $key (sort keys $client{"extra"}) { + foreach my $key (sort keys %{$client{"extra"}}) { $OUT .= qq{$key} . " = " . qq{$client{"extra"}{$key}\n} if defined $client{"extra"}{$key}; } } if (%resume_client && $resume_client{"extra"}) { $OUT .= "\n[$testname-resume-client-extra]\n"; - foreach my $key (sort keys $resume_client{"extra"}) { + foreach my $key (sort keys %{$resume_client{"extra"}}) { $OUT .= qq{$key} . " = " . qq{$resume_client{"extra"}{$key}\n} if defined $resume_client{"extra"}{$key}; } |