Commit | Line | Data |
fe14fcc3 |
1 | #!./perl |
8d063cd8 |
2 | |
103a9d15 |
3 | $^I = $^O eq 'VMS' ? '_bak' : '.bak'; |
fe14fcc3 |
4 | |
8d063cd8 |
5 | print "1..2\n"; |
6 | |
7 | @ARGV = ('.a','.b','.c'); |
68dc0745 |
8 | if ($^O eq 'MSWin32') { |
9 | $CAT = '.\perl -e "print<>"'; |
10 | `.\\perl -le "print 'foo'" > .a`; |
11 | `.\\perl -le "print 'foo'" > .b`; |
12 | `.\\perl -le "print 'foo'" > .c`; |
13 | } |
2986a63f |
14 | elsif ($^O eq 'NetWare') { |
15 | $CAT = 'perl -e "print<>"'; |
16 | `perl -le "print 'foo'" > .a`; |
17 | `perl -le "print 'foo'" > .b`; |
18 | `perl -le "print 'foo'" > .c`; |
19 | } |
dc459aad |
20 | elsif ($^O eq 'MacOS') { |
21 | $CAT = "$^X -e \"print<>\""; |
22 | `$^X -le "print 'foo'" > .a`; |
23 | `$^X -le "print 'foo'" > .b`; |
24 | `$^X -le "print 'foo'" > .c`; |
25 | } |
103a9d15 |
26 | elsif ($^O eq 'VMS') { |
27 | $CAT = 'MCR []perl. -e "print<>"'; |
28 | `MCR []perl. -le "print 'foo'" > ./.a`; |
29 | `MCR []perl. -le "print 'foo'" > ./.b`; |
30 | `MCR []perl. -le "print 'foo'" > ./.c`; |
31 | } |
68dc0745 |
32 | else { |
33 | $CAT = 'cat'; |
34 | `echo foo | tee .a .b .c`; |
35 | } |
8d063cd8 |
36 | while (<>) { |
37 | s/foo/bar/; |
38 | } |
39 | continue { |
40 | print; |
41 | } |
42 | |
68dc0745 |
43 | if (`$CAT .a .b .c` eq "bar\nbar\nbar\n") {print "ok 1\n";} else {print "not ok 1\n";} |
103a9d15 |
44 | if (`$CAT .a$^I .b$^I .c$^I` eq "foo\nfoo\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";} |
8d063cd8 |
45 | |
9949743f |
46 | unlink '.a', '.b', '.c', ".a$^I", ".b$^I", ".c$^I"; |