This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #63558] Deparse open local(*FH) correctly
authorFather Chrysostomos <sprout@cpan.org>
Thu, 8 Dec 2011 17:58:44 +0000 (09:58 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 8 Dec 2011 17:58:44 +0000 (09:58 -0800)
commit2462c3ccada0e87002e4f7dc42bfcdfe36fe678a
treeb48797f025efe8b321d2e7fa4c6267d5b78debb7
parent266da3252fd9a9054350a8936e36633d634642a1
[perl #63558] Deparse open local(*FH) correctly

open FH and open local(*FH) compile down to the same structure
(open *FH), but with a flag set on the rv2gv (*{}) op for the
local case.

B::Deparse was special-casing rv2gv for ops with * in their prototype,
but without consideration for the flag.
dist/B-Deparse/Deparse.pm
dist/B-Deparse/t/deparse.t