diff options
| -rw-r--r-- | src/test/perl/PostgresNode.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm index 377b8a1514d..5c5926559d9 100644 --- a/src/test/perl/PostgresNode.pm +++ b/src/test/perl/PostgresNode.pm @@ -1360,8 +1360,9 @@ sub poll_query_until while ($attempts < $max_attempts) { my $cmd = - [ 'psql', '-XAt', '-c', $query, '-d', $self->connstr($dbname) ]; - my $result = IPC::Run::run $cmd, '>', \$stdout, '2>', \$stderr; + [ 'psql', '-XAt', '-d', $self->connstr($dbname) ]; + my $result = IPC::Run::run $cmd, '<', \$query, + '>', \$stdout, '2>', \$stderr; $stdout =~ s/\r\n/\n/g if $Config{osname} eq 'msys'; chomp($stdout); |