Make runperl normalize newlines with multiple output lines.
authorCraig A. Berry <craigberry@mac.com>
Sat, 18 Jan 2014 19:27:57 +0000 (13:27 -0600)
committerCraig 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

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;
 }