From: Alexander Korotkov <akorotkov@postgresql.org>
Date: Fri, 15 Mar 2024 19:35:18 +0000 (+0200)
Subject: Use locale-aware value for \watch in 005_timeouts.pl
X-Git-Tag: REL_17_BETA1~624
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=605062227fdc8331f2ffa0f60e7a8724b6e56480;p=thirdparty%2Fpostgresql.git

Use locale-aware value for \watch in 005_timeouts.pl

Reported-by: Alexander Lakhin
---

diff --git a/src/test/modules/test_misc/t/005_timeouts.pl b/src/test/modules/test_misc/t/005_timeouts.pl
index dc452136853..a792610231a 100644
--- a/src/test/modules/test_misc/t/005_timeouts.pl
+++ b/src/test/modules/test_misc/t/005_timeouts.pl
@@ -3,6 +3,8 @@
 
 use strict;
 use warnings;
+use locale;
+
 use PostgreSQL::Test::Cluster;
 use PostgreSQL::Test::Utils;
 use Time::HiRes qw(usleep);
@@ -35,14 +37,16 @@ my $psql_session = $node->background_psql('postgres');
 
 # The following query will generate a stream of SELECT 1 queries. This is done
 # so to exercise transaction timeout in the presence of short queries.
+# Note: the interval value is parsed with locale-aware strtod()
 $psql_session->query_until(
-	qr/starting_bg_psql/, q(
-   \echo starting_bg_psql
-   SET transaction_timeout to '10ms';
-   BEGIN;
-   SELECT 1 \watch 0.001
-   \q
-));
+	qr/starting_bg_psql/,
+	sprintf(
+		q(\echo starting_bg_psql
+		SET transaction_timeout to '10ms';
+		BEGIN;
+		SELECT 1 \watch %g
+		\q
+), 0.001));
 
 # Wait until the backend enters the timeout injection point. Will get an error
 # here if anything goes wrong.