diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-06-09 13:13:29 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-06-09 13:13:29 +0000 |
| commit | 7d8277e26ba3dacb5d0719896027eea95e497496 (patch) | |
| tree | e9383321a735b202e11f0033cd47682b8854146d /lib/Pod/Parser.pm | |
| parent | 1d69df2bf087d7ee3a9ecf4ad5d83ad461d6e51e (diff) | |
| download | perl-7d8277e26ba3dacb5d0719896027eea95e497496.tar.gz | |
Upgrade to Pod::Parser 1.28
(except Pod::Find, which has local patches not yet on CPAN)
p4raw-id: //depot/perl@22920
Diffstat (limited to 'lib/Pod/Parser.pm')
| -rw-r--r-- | lib/Pod/Parser.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm index 653342e20c..d12e01624a 100644 --- a/lib/Pod/Parser.pm +++ b/lib/Pod/Parser.pm @@ -1155,8 +1155,7 @@ sub parse_from_file { my $self = shift; my %opts = (ref $_[0] eq 'HASH') ? %{ shift() } : (); my ($infile, $outfile) = @_; - my ($in_fh, $out_fh); - ($in_fh, $out_fh) = (gensym, gensym) if ($] < 5.6); + my ($in_fh, $out_fh) = (gensym, gensym) if ($] < 5.6); my ($close_input, $close_output) = (0, 0); local *myData = $self; local $_; |