Lines Matching refs:infile
1157 my ($infile, $outfile) = @_;
1163 ## Is $infile a filename or a (possibly implied) filehandle
1164 $infile = '-' unless ((defined $infile) && (length $infile));
1165 if (($infile eq '-') || ($infile =~ /^<&(STDIN|0)$/i)) {
1170 elsif (ref $infile) {
1173 $myData{_INFILE} = ${$infile};
1174 $in_fh = $infile;
1178 $myData{_INFILE} = $infile;
1179 open($in_fh, "< $infile") or
1180 croak "Can't open $infile for reading: $!\n";
1228 close($in_fh) || croak "Can't close $infile after reading: $!\n";