diff options
| author | Alvaro Herrera <alvherre@alvh.no-ip.org> | 2021-03-16 10:36:28 -0300 |
|---|---|---|
| committer | Alvaro Herrera <alvherre@alvh.no-ip.org> | 2021-03-16 10:36:28 -0300 |
| commit | 015061690c6526ff9f9f7af2940e1c1541654b68 (patch) | |
| tree | bdbf3f98abf0c2bc286655b46567eb0694d4978f /src | |
| parent | 15639d5e8f6f278219681fec8a5668a92fb7e874 (diff) | |
| download | postgresql-015061690c6526ff9f9f7af2940e1c1541654b68.tar.gz postgresql-015061690c6526ff9f9f7af2940e1c1541654b68.zip | |
(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: 91bdf499b37b, 8ed428dc977f, 650b96707672.
Per buildfarm, via Tom Lane.
Discussion: https://postgr.es/m/3144460.1615860259@sss.pgh.pa.us
Diffstat (limited to 'src')
| -rw-r--r-- | src/test/modules/libpq_pipeline/t/001_libpq_pipeline.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/test/modules/libpq_pipeline/t/001_libpq_pipeline.pl b/src/test/modules/libpq_pipeline/t/001_libpq_pipeline.pl index ba15b64ca73..0213f21ee81 100644 --- a/src/test/modules/libpq_pipeline/t/001_libpq_pipeline.pl +++ b/src/test/modules/libpq_pipeline/t/001_libpq_pipeline.pl @@ -16,7 +16,7 @@ $ENV{PATH} = "$ENV{PATH}:" . getcwd(); my ($out, $err) = run_command(['libpq_pipeline', 'tests']); die "oops: $err" unless $err eq ''; -my @tests = split(/\s/, $out); +my @tests = split(/\s+/, $out); for my $testname (@tests) { |