Second attempt to fix pgbench TAP test.
authorTatsuo Ishii <ishii@postgresql.org>
Fri, 25 Mar 2022 01:11:19 +0000 (10:11 +0900)
committerTatsuo Ishii <ishii@postgresql.org>
Fri, 25 Mar 2022 01:22:55 +0000 (10:22 +0900)
Bildfarm member prairiedog reported a pgbench TAP test failure after
commit: 4a39f87acd6e681e5ded1239391d8a92645b43d6. This is the second
attempt to fix it. It seems older version of Perl does not accept
"\gN". Replace it with plain old "\N" because actually "\gN" is not
necessary here.

Author: Tatsuo Ishii
Reported-by: Tom Lane
Reviewed-by: Tom Lane, Yugo Nagata
Discussion: https://postgr.es/m/2775989.1648060014%40sss.pgh.pa.us

src/bin/pgbench/t/001_pgbench_with_server.pl

index 60cae1e843341e336337caf590d9c1ae1c76046e..ca71f968dc4db5e17965e67bb9cbaf3be121df11 100644 (file)
@@ -1222,9 +1222,9 @@ local $ENV{PGOPTIONS} = "-c default_transaction_isolation=repeatable\\ read";
 # delta variable in the next try
 my $err_pattern =
    "(client (0|1) sending UPDATE xy SET y = y \\+ -?\\d+\\b).*"
-  . "client \\g2 got an error in command 3 \\(SQL\\) of script 0; "
+  . "client \\2 got an error in command 3 \\(SQL\\) of script 0; "
   . "ERROR:  could not serialize access due to concurrent update\\b.*"
-  . "\\g1";
+  . "\\1";
 
 $node->pgbench(
    "-n -c 2 -t 1 -d --verbose-errors --max-tries 2",