-
Parser.pm
112 113 55 55 return $self; 56 56 } 57 57 } 58 } elsif ((ref $input eq "GLOB") or (ref $input eq 'Apache::Upload') or (ref $input eq 'IO::File')) { 58 } elsif ( ref $input eq 'Apache::Upload' ) { 59 $fh = $input->fh; 60 } elsif ((ref $input eq "GLOB") or (ref $input eq 'IO::File')) { 59 61 $fh = $input; 60 62 } elsif (ref $input eq "SCALAR") { 61 63 $fh = IO::Scalar->new($input);