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 (file)
--- 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;