diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2002-10-27 22:15:15 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2002-10-27 22:15:15 +0000 |
| commit | 74cfb115ac810480c0000dc742b20383c1578bac (patch) | |
| tree | 316d96e5123617976f1637b143570c309a662045 /gnu/usr.bin/perl/t/io/iprefix.t | |
| parent | 453ade492b8e06c619009d6cd52a85cb04e8cf17 (diff) | |
stock perl 5.8.0 from CPAN
Diffstat (limited to 'gnu/usr.bin/perl/t/io/iprefix.t')
| -rw-r--r-- | gnu/usr.bin/perl/t/io/iprefix.t | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/t/io/iprefix.t b/gnu/usr.bin/perl/t/io/iprefix.t index 10a5c5f686a..a845040f3df 100644 --- a/gnu/usr.bin/perl/t/io/iprefix.t +++ b/gnu/usr.bin/perl/t/io/iprefix.t @@ -13,12 +13,24 @@ if ($^O eq 'MSWin32') { `.\\perl -le "print 'foo'" > .b`; `.\\perl -le "print 'foo'" > .c`; } +elsif ($^O eq 'NetWare') { + $CAT = 'perl -e "print<>"'; + `perl -le "print 'foo'" > .a`; + `perl -le "print 'foo'" > .b`; + `perl -le "print 'foo'" > .c`; +} elsif ($^O eq 'VMS') { $CAT = 'MCR []perl. -e "print<>"'; `MCR []perl. -le "print 'foo'" > ./.a`; `MCR []perl. -le "print 'foo'" > ./.b`; `MCR []perl. -le "print 'foo'" > ./.c`; } +elsif ($^O eq 'MacOS') { + $CAT = "$^X -e \"print<>\""; + `$^X -le "print 'foo'" > .a`; + `$^X -le "print 'foo'" > .b`; + `$^X -le "print 'foo'" > .c`; +} else { $CAT = 'cat'; `echo foo | tee .a .b .c`; |