test/ssl_test.tmpl: make it work with elderly perl.

Reviewed-by: Rich Salz <rsalz@openssl.org>

diff --git a/test/ssl_test.tmpl b/test/ssl_test.tmpl
index bdbfb11ace7a0b1a59319a2fc2f9d7fe503742f1..9506837f84e5219493b8481e0bb421321bd19035 100644 (file)
--- 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";
 
     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";
             $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";
             $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";
             $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";
             $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};
         }
             $OUT .= qq{$key} . " = " . qq{$resume_client{"extra"}{$key}\n}
                 if defined $resume_client{"extra"}{$key};
         }