This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove FileHandle from list of PodParser dependencies (the
authorGurusamy Sarathy <gsar@cpan.org>
Sun, 17 Oct 1999 18:36:46 +0000 (18:36 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 17 Oct 1999 18:36:46 +0000 (18:36 +0000)
difference is 20 files vs 6 files loaded!)

p4raw-id: //depot/perl@4400

lib/Pod/Parser.pm
lib/Pod/Select.pm
pod/perldelta.pod
t/pod/testcmp.pl

index ab6787d..8ef5a59 100644 (file)
@@ -71,7 +71,7 @@ Pod::Parser - base class for creating POD filters and translators
 
 =head1 REQUIRES
 
 
 =head1 REQUIRES
 
-perl5.004, Pod::InputObjects, Exporter, FileHandle, Carp
+perl5.004, Pod::InputObjects, Exporter, Carp
 
 =head1 EXPORTS
 
 
 =head1 EXPORTS
 
@@ -195,7 +195,6 @@ use strict;
 #use diagnostics;
 use Pod::InputObjects;
 use Carp;
 #use diagnostics;
 use Pod::InputObjects;
 use Carp;
-use FileHandle;
 use Exporter;
 @ISA = qw(Exporter);
 
 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 $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 $_;
     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;
     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;
     }
              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;
         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;
         }
                  croak "Can't open $outfile for writing: $!\n";
             $close_output = 1;
         }
index b933cc2..e634533 100644 (file)
@@ -62,7 +62,7 @@ or
 
 =head1 REQUIRES
 
 
 =head1 REQUIRES
 
-perl5.004, Pod::Parser, Exporter, FileHandle, Carp
+perl5.004, Pod::Parser, Exporter, Carp
 
 =head1 EXPORTS
 
 
 =head1 EXPORTS
 
index c203960..8b56750 100644 (file)
@@ -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.
 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
 =head2 Long doubles
 
 In some systems you may be able to use long doubles to enhance the
index d61bbff..5f62171 100644 (file)
@@ -7,6 +7,7 @@ use Carp;
 use Exporter;
 use File::Basename;
 use File::Spec;
 use Exporter;
 use File::Basename;
 use File::Spec;
+use FileHandle;
 
 @ISA = qw(Exporter);
 @EXPORT = qw(&testcmp);
 
 @ISA = qw(Exporter);
 @EXPORT = qw(&testcmp);