goto \&import_from_file;
}
-use IO::Handle;
-
sub import_from_file {
my $filename = shift;
$parser->add_hook(@_);
print "Pod::Parser: DEBUG: Opening $filename for reading\n" if $parser->{DEBUG};
- my $fh = new IO::Handle;
- open $fh, "<$filename" or die "cannot open $filename for reading; $!";
+ open my $fh, "<$filename" or die "cannot open $filename for reading; $!";
$parser->parse_from_filehandle($fh, \*STDOUT);