database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-11-03 09:13:20 +03:00
Code Activity

Fix thinko in commit 7d129ba54.

Browse Source 
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 c865f5b9f0
commit f1e1db780e
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/test/ssl/t/001_ssltests.pl
View File

@@ -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);
}
}
}