diff options
| author | Tom Lane | 2017-07-01 18:25:09 +0000 |
|---|---|---|
| committer | Tom Lane | 2017-07-01 18:25:09 +0000 |
| commit | b0f069d931f0a3d4a39aeeb230baf2f2b18cb3c3 (patch) | |
| tree | 080a44f7a5fc251dfb2aded6361cc4d3a6ff20a1 /src/test/perl | |
| parent | f32678c0163d7d966560bdaf41bfbc2cf179a260 (diff) | |
Clean up misuse and nonuse of poll_query_until().
Several callers of PostgresNode::poll_query_until() neglected to check
for failure; I do not think that's optional. Also, rewrite one place
that had reinvented poll_query_until() for no very good reason.
Diffstat (limited to 'src/test/perl')
| -rw-r--r-- | src/test/perl/PostgresNode.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm index e72c63580d..f4fa600951 100644 --- a/src/test/perl/PostgresNode.pm +++ b/src/test/perl/PostgresNode.pm @@ -43,7 +43,7 @@ PostgresNode - class representing PostgreSQL server instance # run query every second until it returns 't' # or times out $node->poll_query_until('postgres', q|SELECT random() < 0.1;|') - or print "timed out"; + or die "timed out"; # Do an online pg_basebackup my $ret = $node->backup('testbackup1'); |