rdelaage/postgresql
1
0
Fork 0
mirror of https://git.postgresql.org/git/postgresql.git synced 2024-09-27 22:52:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use a more portable way to get the version string in PostgresNode

Browse Source 
Older versions of perl on Windows don't like the list form of pipe open,
and perlcritic doesn't like the string form of open, so we avoid both
with a simpler formulation using qx{}.

Per complaint from Amit Kapila.
This commit is contained in:
Andrew Dunstan 2021-05-20 08:03:15 -04:00
parent 413c1ef98e
commit 8bdd6f563a
No known key found for this signature in database
GPG Key ID: 99FA7FCB59FC3B81
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/test/perl/PostgresNode.pm
View File

@ -1248,10 +1248,8 @@ sub _set_pg_version
local %ENV = $self->_get_env();
# We only want the version field
open my $fh, "-|", $pg_config, "--version"
or BAIL_OUT("$pg_config failed: $!");
my $version_line = <$fh>;
close $fh or die;
my $version_line = qx{$pg_config --version};
BAIL_OUT("$pg_config failed: $!") if $?;
$self->{_pg_version} = PostgresVersion->new($version_line);