diff options
| -rw-r--r-- | lib/Pod/Parser.pm | 9 | ||||
| -rw-r--r-- | lib/Pod/Select.pm | 2 | ||||
| -rw-r--r-- | pod/perldelta.pod | 2 | ||||
| -rw-r--r-- | t/pod/testcmp.pl | 1 |
4 files changed, 7 insertions, 7 deletions
diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm index ab6787d10e..8ef5a59f62 100644 --- 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 b933cc2cdf..e634533522 100644 --- 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 c203960cbd..8b5675041c 100644 --- 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 d61bbff3a2..5f6217192c 100644 --- 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); |