diff options
| author | Peter Eisentraut <peter_e@gmx.net> | 2015-07-21 21:06:45 -0400 |
|---|---|---|
| committer | Peter Eisentraut <peter_e@gmx.net> | 2015-07-28 20:31:35 -0400 |
| commit | 0dc848b0314d63188919f1ce943730eac684dccd (patch) | |
| tree | f9f95d0e5b75c80d1c6f95dda6cf0b9e712bd322 /src/test/perl/TestLib.pm | |
| parent | 90102bb538831fca734cc9fa1450b97c7d4e1190 (diff) | |
pg_basebackup: Add --slot option
This option specifies a replication slot for WAL streaming (-X stream),
so that there can be continuous replication slot use between WAL
streaming during the base backup and the start of regular streaming
replication.
Reviewed-by: Michael Paquier <michael.paquier@gmail.com>
Diffstat (limited to 'src/test/perl/TestLib.pm')
| -rw-r--r-- | src/test/perl/TestLib.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm index f0379b72256..1f69931fe1a 100644 --- a/src/test/perl/TestLib.pm +++ b/src/test/perl/TestLib.pm @@ -173,8 +173,11 @@ END sub psql { my ($dbname, $sql) = @_; + my ($stdout, $stderr); print("# Running SQL command: $sql\n"); - run [ 'psql', '-X', '-q', '-d', $dbname, '-f', '-' ], '<', \$sql or die; + run [ 'psql', '-X', '-A', '-t', '-q', '-d', $dbname, '-f', '-' ], '<', \$sql, '>', \$stdout, '2>', \$stderr or die; + chomp $stdout; + return $stdout; } sub slurp_dir |