ok( eof TRY );
-ok( eof NEVEROPENED, 'eof() true on unopened filehandle' );
+{
+ no warnings 'once';
+ ok( eof NEVEROPENED, 'eof() true on unopened filehandle' );
+}
open STDIN, 'Io_argv1.tmp' or die $!;
@ARGV = ();
**PROG**
END {
- unlink 'Io_argv1.tmp', 'Io_argv1.tmp_bak',
+ 1 while unlink 'Io_argv1.tmp', 'Io_argv1.tmp_bak',
'Io_argv2.tmp', 'Io_argv2.tmp_bak', 'Io_argv3.tmp';
}