diff options
Diffstat (limited to 'src/test/perl/PostgresNode.pm')
| -rw-r--r-- | src/test/perl/PostgresNode.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm index bb2f39e5089..4f414c3c03f 100644 --- a/src/test/perl/PostgresNode.pm +++ b/src/test/perl/PostgresNode.pm @@ -93,6 +93,7 @@ use RecursiveCopy; use Socket; use Test::More; use TestLib (); +use Time::HiRes qw(usleep); use Scalar::Util qw(blessed); our @EXPORT = qw( @@ -1248,7 +1249,7 @@ sub poll_query_until } # Wait 0.1 second before retrying. - select undef, undef, undef, 0.1; + usleep(100000); $attempts++; } |