6 unless (exists $open::layers{'perlio'}) {
7 print "1..0 # Skip: not perlio\n";
17 open($fh,"+<",\$var) or print "not ";
20 print "not " unless eof($fh);
22 seek($fh,0,0) or print "not ";
23 print "not " if eof($fh);
26 print $fh "ok 7\n" or print "not ";
30 seek($fh,0,0) or print "not ";
31 print "not " if eof($fh);
33 print "not " unless <$fh> eq "foo\n";