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 /t/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 't/io')
| -rwxr-xr-x | t/io/dup.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/io/dup.t b/t/io/dup.t index 3d782455a4..96fe3bedeb 100755 --- a/t/io/dup.t +++ b/t/io/dup.t @@ -46,7 +46,7 @@ close(STDERR); 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'; |