From 564cd6cb6e72228304bae646ccbe28cff6136367 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Thu, 8 Dec 2011 12:51:19 -0800 Subject: [PATCH] Deparse pipe(local *FH, local *FH) correctly This is a follow-up to commit 2462c3cca (bug #63558). I made it work with the first argument, but forgot the second. --- dist/B-Deparse/Deparse.pm | 3 ++- dist/B-Deparse/t/deparse.t | 1 + 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm index 792cfd5..821cce1 100644 --- a/dist/B-Deparse/Deparse.pm +++ b/dist/B-Deparse/Deparse.pm @@ -2394,7 +2394,8 @@ sub listop { if not $parens and not $nollafr and substr($first, 0, 1) eq "("; push @exprs, $first; $kid = $kid->sibling; - if (defined $proto && $proto =~ /^\*\*/ && $kid->name eq "rv2gv") { + if (defined $proto && $proto =~ /^\*\*/ && $kid->name eq "rv2gv" + && !($kid->private & OPpLVAL_INTRO)) { push @exprs, $self->deparse($kid->first, 6); $kid = $kid->sibling; } diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t index 4905d54..8f2a4b8 100644 --- a/dist/B-Deparse/t/deparse.t +++ b/dist/B-Deparse/t/deparse.t @@ -877,3 +877,4 @@ CORE::do({}); #### # [perl #63558] open local(*FH) open local *FH; +pipe local *FH, local *FH; -- 2.7.4