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 (file)
--- 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 (file)
--- 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;