This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Deparse pipe(local *FH, local *FH) correctly
[perl5.git] / dist / B-Deparse / Deparse.pm
index 792cfd5..821cce1 100644 (file)
@@ -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 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;
     }
        push @exprs, $self->deparse($kid->first, 6);
        $kid = $kid->sibling;
     }