Front page | perl.vmsperl |
Postings from December 2001
Before change 13535, vms/test.com defined "cat" to run the native "type"
command. It's removal has caused several tests to start failing. Rather
than putting the definition back in test.com I've piggybacked the selection
of the appropriate command onto existing code in the affected tests. That
way they'll run on their own outside of the test suite.
Affected files:
t/comp/multiline.t
t/io/dup.t
ext/IO/lib/IO/t/io_dup.t
--- t/comp/multiline.t;-0 Thu Nov 15 17:26:21 2001
+++ t/comp/multiline.t Mon Dec 10 15:44:08 2001
@@ -36,7 +36,7 @@
if ($count == 7) {print "ok 3\n";} else {print "not ok 3\n";}
-$_ = (($^O eq 'MSWin32') || $^O eq 'NetWare') ? `type Comp.try`
+$_ = (($^O eq 'MSWin32') || $^O eq 'NetWare' || $^O eq 'VMS') ? `type Comp.try`
: ($^O eq 'MacOS') ? `catenate Comp.try`
: `cat Comp.try`;
--- t/io/dup.t;-0 Thu Nov 15 17:26:21 2001
+++ t/io/dup.t Mon Dec 10 15:52:50 2001
@@ -46,7 +46,7 @@
open(STDOUT,">&DUPOUT");
open(STDERR,">&DUPERR");
-if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) { print `type Io.dup` }
+if (($^O eq 'MSWin32') || ($^O eq 'NetWare') || ($^O eq 'VMS')) { print `type Io.dup` }
else { system 'cat Io.dup' }
unlink 'Io.dup';
--- ext/IO/lib/IO/t/io_dup.t;-0 Thu Nov 15 17:25:46 2001
+++ ext/IO/lib/IO/t/io_dup.t Mon Dec 10 15:59:16 2001
@@ -55,7 +55,7 @@
$stdout->fdopen($dupout,"w");
$stderr->fdopen($duperr,"w");
-if ($^O eq 'MSWin32' || $^O eq 'NetWare') { print `type Io.dup` }
+if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') { print `type Io.dup` }
else { system 'cat Io.dup' }
unlink 'Io.dup';
[end]
Thread Next