From: Father Chrysostomos <sprout@cpan.org>
Date: Thu, 8 Dec 2011 20:51:19 +0000 (-0800)
Subject: Deparse pipe(local *FH, local *FH) correctly
X-Git-Tag: accepted/trunk/20130322.191538~1819
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=564cd6cb6e72228304bae646ccbe28cff6136367;p=platform%2Fupstream%2Fperl.git

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.
---

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;