X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/4d8ac5c735b4377aecb531044f04c9917054ba71..564cd6cb6e72228304bae646ccbe28cff6136367:/dist/B-Deparse/Deparse.pm?ds=sidebyside

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;
     }