src/test/perl/PostgreSQL/Test/BackgroundPsql.pm

@@ -301,7 +301,7 @@ sub set_query_timer_restart
 {
 	my $self = shift;
 
-	$self->{query_timer_restart} = 1;
+	$self->{query_timer_restart} = shift if @_;
 	return $self->{query_timer_restart};
 }
 

src/test/perl/PostgreSQL/Test/Cluster.pm

@@ -1972,7 +1972,8 @@ sub psql
 
 Invoke B<psql> on B<$dbname> and return a BackgroundPsql object.
 
-A timeout of $PostgreSQL::Test::Utils::timeout_default is set up.
+A default timeout of $PostgreSQL::Test::Utils::timeout_default is set up,
+which can be modified later.
 
 psql is invoked in tuples-only unaligned mode with reading of B<.psqlrc>
 disabled.  That may be overridden by passing extra psql parameters.
@@ -2038,7 +2039,8 @@ sub background_psql
 Invoke B<psql> on B<$dbname> and return a BackgroundPsql object, which the
 caller may use to send interactive input to B<psql>.
 
-A timeout of $PostgreSQL::Test::Utils::timeout_default is set up.
+A default timeout of $PostgreSQL::Test::Utils::timeout_default is set up,
+which can be modified later.
 
 psql is invoked in tuples-only unaligned mode with reading of B<.psqlrc>
 disabled.  That may be overridden by passing extra psql parameters.