diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-14 06:01:12 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-14 06:01:12 +0000 |
| commit | e46ffa5519210e11f4d5bc2cb87a6423b98ac426 (patch) | |
| tree | 80eb9310757393f5c903e9a1553dbbd622b37690 /t/io | |
| parent | 970d0ca27a2290119cbaa2df59b308a84a879664 (diff) | |
| download | perl-e46ffa5519210e11f4d5bc2cb87a6423b98ac426.tar.gz | |
more VMS patches from Dan Sugalski <sugalskd@osshe.edu>
Date: Mon, 13 Jul 1998 16:37:49 -0700
Message-Id: <3.0.5.32.19980713163749.00af1c40@ous.edu>
Subject: [PATCH 5.004_73]t/io/iprefix.t patch for VMS
--
Date: Mon, 13 Jul 1998 15:51:09 -0700
Message-Id: <3.0.5.32.19980713155109.00a52c30@ous.edu>
Subject: [PATCH5.004_73]Tweak t/lib/cgi-html.t to work on VMS
p4raw-id: //depot/perl@1482
Diffstat (limited to 't/io')
| -rwxr-xr-x | t/io/iprefix.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/io/iprefix.t b/t/io/iprefix.t index b7ade31576..10a5c5f686 100755 --- a/t/io/iprefix.t +++ b/t/io/iprefix.t @@ -13,6 +13,12 @@ if ($^O eq 'MSWin32') { `.\\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`; +} else { $CAT = 'cat'; `echo foo | tee .a .b .c`; |