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
This commit is contained in:
Tom Lane 2019-01-18 15:23:44 -05:00
parent e4ffa0dcb7
commit e14536f79e

View File

@ -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)