This is a follow-up to commit
2462c3cca (bug #63558).
I made it work with the first argument, but forgot the second.
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;
}
####
# [perl #63558] open local(*FH)
open local *FH;
+pipe local *FH, local *FH;