Fix under-quoted filename pattern in pgbench TAP test.

Avoids issues if build directory's pathname contains regex
metacharacters.

Raúl Marín Rodríguez

Discussion: https://postgr.es/m/CAM6_UM6dGdU39PKAC24T+HD9ouy0jLN9vH6163K8QEEzr__iZw@mail.gmail.com

diff --git a/src/bin/pgbench/t/001_pgbench_with_server.pl b/src/bin/pgbench/t/001_pgbench_with_server.pl
index 6b3bcef25a131de8cf414d33590859f4b05e683b..af988a4e015c1341f6dd819e6d3b10bc2c343fbe 100644 (file)
--- a/src/bin/pgbench/t/001_pgbench_with_server.pl
+++ b/src/bin/pgbench/t/001_pgbench_with_server.pl
@@ -800,9 +800,10 @@ sub check_pgbench_logs
 {
    my ($prefix, $nb, $min, $max, $re) = @_;
 
-   my @logs = glob "$prefix.*";
+   my $qprefix = quotemeta($prefix);
+   my @logs = glob "$qprefix.*";
    ok(@logs == $nb, "number of log files");
-   ok(grep(/^$prefix\.\d+(\.\d+)?$/, @logs) == $nb, "file name format");
+   ok(grep(/^$qprefix\.\d+(\.\d+)?$/, @logs) == $nb, "file name format");
 
    my $log_number = 0;
    for my $log (sort @logs)