home *** CD-ROM | disk | FTP | other *** search
- #!./perl -iTmp.
-
- # $Header: io.inplace,v 3.0 89/10/18 15:26:25 lwall Locked $
-
- print "1..2\n";
-
- open(try,'>a') || die "Can't open temp file";
- print try "foo\n";
- close try;
- system 'join a >b';
- system 'join a >c';
-
- @ARGV = ('a','b','c');
- while (<>) {
- s/foo/bar/;
- }
- continue {
- print;
- }
-
- if (`join a b c` eq "bar\nbar\nbar\n") {print "ok 1\n";} else {print "not ok 1\n";}
- if (`join Tmp.a Tmp.b Tmp.c` eq "foo\nfoo\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
-
- unlink 'a', 'b', 'c', 'Tmp.a', 'Tmp.b', 'Tmp.c';
-