1
0
mirror of https://github.com/postgres/postgres.git synced 2025-10-22 14:32:25 +03:00

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.
This commit is contained in:
Tom Lane
2025-10-20 08:45:57 -04:00
parent 762faf702c
commit d74cfe3263

View File

@@ -754,7 +754,7 @@ my $serialno = '\d+';
if ($ENV{OPENSSL} ne '') 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) if ($? == 0)
{ {
# OpenSSL prints serial numbers in hexadecimal and converting the serial # OpenSSL prints serial numbers in hexadecimal and converting the serial
@@ -765,9 +765,9 @@ if ($ENV{OPENSSL} ne '')
{ {
no warnings qw(portable); no warnings qw(portable);
$serialno =~ s/^serial=//; $serialstr =~ s/^serial=//;
$serialno =~ s/\s+//g; $serialstr =~ s/\s+//g;
$serialno = hex($serialno); $serialno = hex($serialstr);
} }
} }
} }