iprefix.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
$^I = 'bak*';
# Modified from the original inplace.t to test adding prefixes
print "1..2\n";
@
ARGV =
('.a','.b','.c');
$CAT = '.\perl -e "print<>"'; `.\\perl -le "print 'foo'" > .a`; `.\\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`; }
$CAT = 'MCR []perl. -e "print<>"'; }
$CAT = "$^X -e \"print<>\""; `$^X -le "print 'foo'" > .a`; `$^X -le "print 'foo'" > .b`; `$^X -le "print 'foo'" > .c`; }
else {
}
while (<>) {
}
continue {
print;
}
if (`$CAT .a .b .c` eq "bar\nbar\nbar\n") {
print "ok 1\n";}
else {
print "not ok 1\n";}