#!./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';
