From 6c6970a280a50434c28ccd461ba864798f5d2a04 Mon Sep 17 00:00:00 2001 From: Andrew Dunstan Date: Mon, 17 Jul 2017 15:22:37 -0400 Subject: [PATCH] Use usleep instead of select for timeouts in PostgresNode.pm select() for pure timeouts is not portable, and in particular doesn't work on Windows. Discussion: https://postgr.es/m/186943e0-3405-978d-b19d-9d3335427c86@2ndQuadrant.com --- src/test/perl/PostgresNode.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm index bb2f39e508..4f414c3c03 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++; }