Commit 01506169 authored by Alvaro Herrera's avatar Alvaro Herrera

(Blind) fix Perl splitting of strings at newlines

I forgot that Windows represents newlines as \r\n, so splitting a string
at /\s/ creates additional empty strings.  Let's rewrite that as /\s+/
to see if that avoids those.  (There's precedent for using that pattern
on Windows in other scripts.)

Previously: 91bdf499, 8ed428dc, 650b9670.

Per buildfarm, via Tom Lane.
Discussion: https://postgr.es/m/3144460.1615860259@sss.pgh.pa.us
parent 15639d5e
...@@ -16,7 +16,7 @@ $ENV{PATH} = "$ENV{PATH}:" . getcwd(); ...@@ -16,7 +16,7 @@ $ENV{PATH} = "$ENV{PATH}:" . getcwd();
my ($out, $err) = run_command(['libpq_pipeline', 'tests']); my ($out, $err) = run_command(['libpq_pipeline', 'tests']);
die "oops: $err" unless $err eq ''; die "oops: $err" unless $err eq '';
my @tests = split(/\s/, $out); my @tests = split(/\s+/, $out);
for my $testname (@tests) for my $testname (@tests)
{ {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment