No need for IO::Handle

diff --git a/lib/Pod/Constants.pm b/lib/Pod/Constants.pm
index 3e24fea847f0afe4b580adcccfe7c405f828e27e..80c2eab0fee8ada6d2883caf25f5b1fae395d103 100644 (file)
--- 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);