remove FileHandle from list of PodParser dependencies (the

difference is 20 files vs 6 files loaded!)

p4raw-id: //depot/perl@4400

diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm
index ab6787d..8ef5a59 100644 (file)
--- a/lib/Pod/Parser.pm
+++ b/lib/Pod/Parser.pm
@@ -71,7 +71,7 @@ Pod::Parser - base class for creating POD filters and translators
 
 =head1 REQUIRES
 
-perl5.004, Pod::InputObjects, Exporter, FileHandle, Carp
+perl5.004, Pod::InputObjects, Exporter, Carp
 
 =head1 EXPORTS
 
@@ -195,7 +195,6 @@ use strict;
 #use diagnostics;
 use Pod::InputObjects;
 use Carp;
-use FileHandle;
 use Exporter;
 @ISA = qw(Exporter);
 
@@ -1098,7 +1097,7 @@ sub parse_from_file {
     my $self = shift;
     my %opts = (ref $_[0] eq 'HASH') ? %{ shift() } : ();
     my ($infile, $outfile) = @_;
-    my ($in_fh,  $out_fh)  = (undef, undef);
+    my ($in_fh,  $out_fh);
     my ($close_input, $close_output) = (0, 0);
     local *myData = $self;
     local $_;
@@ -1119,7 +1118,7 @@ sub parse_from_file {
     else {
         ## We have a filename, open it for reading
         $myData{_INFILE} = $infile;
-        $in_fh = FileHandle->new("< $infile")  or
+        open($in_fh, "< $infile")  or
              croak "Can't open $infile for reading: $!\n";
         $close_input = 1;
     }
@@ -1155,7 +1154,7 @@ sub parse_from_file {
         else {
             ## We have a filename, open it for writing
             $myData{_OUTFILE} = $outfile;
-            $out_fh = FileHandle->new("> $outfile")  or
+            open($out_fh, "> $outfile")  or
                  croak "Can't open $outfile for writing: $!\n";
             $close_output = 1;
         }

diff --git a/lib/Pod/Select.pm b/lib/Pod/Select.pm
index b933cc2..e634533 100644 (file)
--- a/lib/Pod/Select.pm
+++ b/lib/Pod/Select.pm
@@ -62,7 +62,7 @@ or
 
 =head1 REQUIRES
 
-perl5.004, Pod::Parser, Exporter, FileHandle, Carp
+perl5.004, Pod::Parser, Exporter, Carp
 
 =head1 EXPORTS
 

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index c203960..8b56750 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -450,7 +450,7 @@ command before running Perl.  The BSD::Resource extension (not
 included with the standard Perl distribution) may also be of use, it
 offers the getrlimit/setrlimit interface that can be used to adjust
 process resource usage limits, including the maximum filesize limit.
- 
+
 =head2 Long doubles
 
 In some systems you may be able to use long doubles to enhance the

diff --git a/t/pod/testcmp.pl b/t/pod/testcmp.pl
index d61bbff..5f62171 100644 (file)
--- a/t/pod/testcmp.pl
+++ b/t/pod/testcmp.pl
@@ -7,6 +7,7 @@ use Carp;
 use Exporter;
 use File::Basename;
 use File::Spec;
+use FileHandle;
 
 @ISA = qw(Exporter);
 @EXPORT = qw(&testcmp);