1N/A$^I = $^O
eq 'VMS' ?
'_bak' :
'.bak';
1N/A# $RCSfile: inplace.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:29 $ 1N/Aelsif ($^O eq 'NetWare') { 1N/A `$^X -le "print 'foo'" > .a`; 1N/A `$^X -le "print 'foo'" > .b`; 1N/A `$^X -le "print 'foo'" > .c`; 1N/Aif (`$CAT .a .b .c` eq "bar\nbar\nbar\n") {
print "ok 1\n";}
else {
print "not ok 1\n";}
1N/Aif (`$CAT .a$^I .b$^I .c$^I` eq "foo\nfoo\nfoo\n") {
print "ok 2\n";}
else {
print "not ok 2\n";}
1N/Aunlink '.a',
'.b',
'.c',
".a$^I",
".b$^I",
".c$^I";