14 my $devnull = File::Spec->devnull;
16 open(TRY, '>Io_argv1.tmp') || (die "Can't open temp file: $!");
18 close TRY or die "Could not close: $!";
21 prog => 'while (<>) { print $., $_; }',
22 args => [ 'Io_argv1.tmp', 'Io_argv1.tmp' ],
24 is($x, "1a line\n2a line\n", '<> from two files');
28 prog => 'while (<>) { print $_; }',
30 args => [ 'Io_argv1.tmp', '-' ],
32 is($x, "a line\nfoo\n", ' from a file and STDIN');
35 prog => 'while (<>) { print $_; }',
38 is($x, "foo\n", ' from just STDIN');
41 @ARGV = ('Io_argv1.tmp', 'Io_argv1.tmp', $devnull, 'Io_argv1.tmp');
45 is($., 3, '$. counts <>');
49 is($y, "1a line\n2a line\n3a line\n", '<> from @ARGV');
52 open(TRY, '>Io_argv1.tmp') or die "Can't open temp file: $!";
53 close TRY or die "Could not close: $!";
54 open(TRY, '>Io_argv2.tmp') or die "Can't open temp file: $!";
55 close TRY or die "Could not close: $!";
56 @ARGV = ('Io_argv1.tmp', 'Io_argv2.tmp');
57 $^I = '_bak'; # not .bak which confuses VMS
66 open(TRY, '<Io_argv1.tmp') or die "Can't open temp file: $!";
68 open(TRY, '<Io_argv2.tmp') or die "Can't open temp file: $!";
70 close TRY or die "Could not close: $!";
77 ok( eof NEVEROPENED, 'eof() true on unopened filehandle' );
80 open STDIN, 'Io_argv1.tmp' or die $!;
82 ok( !eof(), 'STDIN has something' );
86 open STDIN, $devnull or die $!;
88 ok( eof(), 'eof() true with empty @ARGV' );
90 @ARGV = ('Io_argv1.tmp');
93 @ARGV = ($devnull, $devnull);
97 ok( eof(), 'eof() true after closing ARGV' );
101 open F, 'Io_argv1.tmp' or die "Could not open Io_argv1.tmp: $!";
105 open F, $devnull or die;
111 open F, $devnull or die; # restart cycle again
114 close F or die "Could not close: $!";
117 # This used to dump core
118 fresh_perl_is( <<'**PROG**', "foobar", {}, "ARGV aliasing and eof()" );
119 open OUT, ">Io_argv3.tmp" or die "Can't open temp file: $!";
122 open IN, "Io_argv3.tmp" or die "Can't open temp file: $!";
126 print "bar" if eof();
129 unlink "Io_argv3.tmp";
133 1 while unlink 'Io_argv1.tmp', 'Io_argv1.tmp_bak',
134 'Io_argv2.tmp', 'Io_argv2.tmp_bak', 'Io_argv3.tmp';