diff options
Diffstat (limited to 'lib/B/Deparse.pm')
| -rw-r--r-- | lib/B/Deparse.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm index d09591466d..cbbb6c2dfe 100644 --- a/lib/B/Deparse.pm +++ b/lib/B/Deparse.pm @@ -4164,12 +4164,12 @@ sub pp_entersub { } my $args; + my $listargs = 1; if ($declared and defined $proto and not $amper) { ($amper, $args) = $self->check_proto($proto, @exprs); - if ($amper eq "&") { - $args = join(", ", map($self->deparse($_, 6), @exprs)); - } - } else { + $listargs = $amper; + } + if ($listargs) { $args = join(", ", map($self->deparse($_, 6), @exprs)); } if ($prefix or $amper) { |