Deparse.pm:pp_entersub: Refactor repetition away

I’m about to modify this code, and having two copies of the join(...)
is not so helpful.

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) {