diff options
Diffstat (limited to 'src/test/perl/PostgreSQL/Test/BackgroundPsql.pm')
| -rw-r--r-- | src/test/perl/PostgreSQL/Test/BackgroundPsql.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/test/perl/PostgreSQL/Test/BackgroundPsql.pm b/src/test/perl/PostgreSQL/Test/BackgroundPsql.pm index c611a61cf4e..60bbd5dd445 100644 --- a/src/test/perl/PostgreSQL/Test/BackgroundPsql.pm +++ b/src/test/perl/PostgreSQL/Test/BackgroundPsql.pm @@ -108,14 +108,17 @@ sub new if ($interactive) { $run = IPC::Run::start $psql_params, - '<pty<', \$psql->{stdin}, '>pty>', \$psql->{stdout}, '2>', - \$psql->{stderr}, + '<pty<' => \$psql->{stdin}, + '>pty>' => \$psql->{stdout}, + '2>' => \$psql->{stderr}, $psql->{timeout}; } else { $run = IPC::Run::start $psql_params, - '<', \$psql->{stdin}, '>', \$psql->{stdout}, '2>', \$psql->{stderr}, + '<' => \$psql->{stdin}, + '>' => \$psql->{stdout}, + '2>' => \$psql->{stderr}, $psql->{timeout}; } |