diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-12-10 10:38:14 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-10 21:34:46 +0000 |
| commit | cda41bc103281f18855c0da8ed14366b1358eda9 (patch) | |
| tree | 5a8add71ec151734f375c7fd272c505146c425ac /ext/IO | |
| parent | 17d0565f9ef9f25d30c0f88552d7867e9430e0a5 (diff) | |
| download | perl-cda41bc103281f18855c0da8ed14366b1358eda9.tar.gz | |
cat2type in tests for VMS
Message-Id: <5.1.0.14.2.20011210154846.01aef188@exchi01>
p4raw-id: //depot/perl@13603
Diffstat (limited to 'ext/IO')
| -rwxr-xr-x | ext/IO/lib/IO/t/io_dup.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IO/lib/IO/t/io_dup.t b/ext/IO/lib/IO/t/io_dup.t index 351a38dfb6..eb6e9114d5 100755 --- a/ext/IO/lib/IO/t/io_dup.t +++ b/ext/IO/lib/IO/t/io_dup.t @@ -55,7 +55,7 @@ $stdout->close; $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'; |