Update obsolete comments and perldoc.

Loose ends from commit 2a0f89cd717ce6d49cdc47850577823682167e87.

Daniel Gustafsson

diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm
index fede1e601b96d122a3594e01195c6744ed4f51ef..ca256be07a8c23a85f194ca66130c5bb741b5fdd 100644 (file)
--- a/src/test/perl/PostgresNode.pm
+++ b/src/test/perl/PostgresNode.pm
@@ -1184,7 +1184,7 @@ sub psql
 =item $node->poll_query_until(dbname, query)
 
 Run a query once a second, until it returns 't' (i.e. SQL boolean true).
-Continues polling if psql returns an error result. Times out after 90 seconds.
+Continues polling if psql returns an error result. Times out after 180 seconds.
 
 =cut
 
@@ -1214,7 +1214,7 @@ sub poll_query_until
                $attempts++;
        }
 
-       # The query result didn't change in 90 seconds. Give up. Print the stderr
+       # The query result didn't change in 180 seconds. Give up. Print the stderr
        # from the last attempt, hopefully that's useful for debugging.
        diag $stderr;
        return 0;