projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
e36e13a
)
Make runperl normalize newlines with multiple output lines.
author
Craig A. Berry
<craigberry@mac.com>
Sat, 18 Jan 2014 19:27:57 +0000
(13:27 -0600)
committer
Craig A. Berry
<craigberry@mac.com>
Sat, 18 Jan 2014 21:33:40 +0000
(15:33 -0600)
On VMS only, because rarely but occasionally (such as with
perl5db.t) runperl produces multiple lines of output and they
all need the same treatment.
t/test.pl
patch
|
blob
|
history
diff --git
a/t/test.pl
b/t/test.pl
index
90963da
..
6808127
100644
(file)
--- a/
t/test.pl
+++ b/
t/test.pl
@@
-733,7
+733,7
@@
sub runperl {
} else {
$result = `$runperl`;
}
- $result =~ s/\n\n/\n/ if $is_vms; # XXX pipes sometimes double these
+ $result =~ s/\n\n/\n/
g
if $is_vms; # XXX pipes sometimes double these
return $result;
}