From: Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>
Date: Tue, 12 Sep 2000 08:35:59 +0000 (-0400)
Subject: Perl 5.6.0, 5.7.0 ... vms/test.com to eliminate spurious NL's in test output
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9428117fbc56a438c81325776103d98e0ef40329;p=p5sagit%2Fp5-mst-13.2.git

Perl 5.6.0, 5.7.0 ... vms/test.com to eliminate spurious NL's in test output
Message-Id: <000912081130.13ca9@DUPHY4.Physics.Drexel.Edu>

p4raw-id: //depot/perl@7053
---

diff --git a/vms/test.com b/vms/test.com
index 608d243..afc1e57 100644
--- a/vms/test.com
+++ b/vms/test.com
@@ -171,7 +171,7 @@ while ($test = shift) {
 	} else {
 	    $switch = '';
 	}
-	open(results,"\$ MCR Sys\$Disk:[]Perl. \"-I[-.lib]\" $switch $test |") || (print "can't run.\n");
+	open(results,"\$ MCR Sys\$Disk:[]Perl. \"-I[-.lib]\" $switch $test 2>&1|") || (print "can't run.\n");
     $ok = 0;
     $next = 0;
     $pending_not = 0;