Fix thinko in commit 7d129ba54.

The revised logic in 001_ssltests.pl would fail if openssl
doesn't work or if Perl is a 32-bit build, because it had
already overwritten $serialno with something inappropriate
to use in the eventual match.  We could go back to the
previous code layout, but it seems best to introduce a
separate variable for the output of openssl.

Per failure on buildfarm member mamba, which has a 32-bit Perl.

diff --git a/src/test/ssl/t/001_ssltests.pl b/src/test/ssl/t/001_ssltests.pl
index 7e2c596bb32f1d5e611e9bf6ae603b9a0ed89392..7f90c4efdd6ddea80e8a3cca077298427c8c8140 100644 (file)
--- a/src/test/ssl/t/001_ssltests.pl
+++ b/src/test/ssl/t/001_ssltests.pl
@@ -708,7 +708,7 @@ my $serialno = '\d+';
 
 if ($ENV{OPENSSL} ne '')
 {
-   $serialno = `$ENV{OPENSSL} x509 -serial -noout -in ssl/client.crt`;
+   my $serialstr = `$ENV{OPENSSL} x509 -serial -noout -in ssl/client.crt`;
    if ($? == 0)
    {
        # OpenSSL prints serial numbers in hexadecimal and converting the serial
@@ -719,9 +719,9 @@ if ($ENV{OPENSSL} ne '')
        {
            no warnings qw(portable);
 
-           $serialno =~ s/^serial=//;
-           $serialno =~ s/\s+//g;
-           $serialno = hex($serialno);
+           $serialstr =~ s/^serial=//;
+           $serialstr =~ s/\s+//g;
+           $serialno = hex($serialstr);
        }
    }
 }