(Blind) fix Perl splitting of strings at newlines

alvherre · alvherre · commit 015061690c65 · 2021-03-16T10:36:28.000-03:00
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: 91bdf49, 8ed428d, 650b967. Per buildfarm, via Tom Lane. Discussion: https://postgr.es/m/3144460.1615860259@sss.pgh.pa.us
diff --git 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 @@
 
 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)
 {

Original file line number	Diff line number	Diff line change
`@@ -16,7 +16,7 @@`
`16`	`16`
`17`	`17`	`my ($out, $err) = run_command(['libpq_pipeline', 'tests']);`
`18`	`18`	`die "oops: $err" unless $err eq '';`
`19`		`-my @tests = split(/\s/, $out);`
	`19`	`+my @tests = split(/\s+/, $out);`
`20`	`20`
`21`	`21`	`for my $testname (@tests)`
`22`	`22`	`{`