diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-02-17 21:52:08 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-02-17 21:52:08 +0000 |
| commit | 76df5e8f6f9a368c3b6f3dcca177104be7f3fc8c (patch) | |
| tree | 4aee5575154e7b0037b35ce06a93486173c9f9eb /lib/Pod | |
| parent | 9b11ae5efd28ae7e3371a10346290d0fad9432ad (diff) | |
| download | perl-76df5e8f6f9a368c3b6f3dcca177104be7f3fc8c.tar.gz | |
remove C<my $x if foo> construct from core modules
p4raw-id: //depot/perl@22322
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Parser.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm index d12e01624a..653342e20c 100644 --- a/lib/Pod/Parser.pm +++ b/lib/Pod/Parser.pm @@ -1155,7 +1155,8 @@ sub parse_from_file { my $self = shift; my %opts = (ref $_[0] eq 'HASH') ? %{ shift() } : (); my ($infile, $outfile) = @_; - my ($in_fh, $out_fh) = (gensym, gensym) if ($] < 5.6); + my ($in_fh, $out_fh); + ($in_fh, $out_fh) = (gensym, gensym) if ($] < 5.6); my ($close_input, $close_output) = (0, 0); local *myData = $self; local $_; |