7 # Modified from the original inplace.t to test adding prefixes
11 my @tfiles = ('.a','.b','.c');
12 my @tfiles_bak = ('bak.a', 'bak.b', 'bak.c');
14 END { unlink_all('.a','.b','.c', 'bak.a', 'bak.b', 'bak.c'); }
16 for my $file (@tfiles) {
17 runperl( prog => 'print qq(foo\n);',
18 args => ['>', $file] );
30 is ( runperl( prog => 'print<>;', args => \@tfiles ),
32 "file contents properly replaced" );
34 is ( runperl( prog => 'print<>;', args => \@tfiles_bak ),
36 "backup file contents stay the same" );