From 94e0b31b04205bddac4ea3ffbf55a948d0148661 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Fri, 17 Jul 2015 14:15:15 +0300 Subject: [PATCH] No need for IO::Handle --- lib/Pod/Constants.pm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/lib/Pod/Constants.pm b/lib/Pod/Constants.pm index 3e24fea..80c2eab 100644 --- a/lib/Pod/Constants.pm +++ b/lib/Pod/Constants.pm @@ -130,8 +130,6 @@ sub import { goto \&import_from_file; } -use IO::Handle; - sub import_from_file { my $filename = shift; @@ -147,8 +145,7 @@ sub import_from_file { $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); -- 2.39.2