diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-17 18:36:46 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-17 18:36:46 +0000 |
| commit | 475d79b5e99617ecaabd8d9765f5247b6d49652c (patch) | |
| tree | 22f929c220c8dfc0afaa1e141c6a4d5328f489de /lib | |
| parent | e87397262fea23fa89ba85aa7fe9c848306450ab (diff) | |
| download | perl-475d79b5e99617ecaabd8d9765f5247b6d49652c.tar.gz | |
remove FileHandle from list of PodParser dependencies (the
difference is 20 files vs 6 files loaded!)
p4raw-id: //depot/perl@4400
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Parser.pm | 9 | ||||
| -rw-r--r-- | lib/Pod/Select.pm | 2 |
2 files changed, 5 insertions, 6 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 |