Revert "Remove apparently unused/undocumented param from MAIN_HELPER"

This reverts commit e48e750. Apparently this *is* being used???
rakudo · Oct 9, 2018 · f30b647 · f30b647
1 parent e48e750
commit f30b647
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Main.pm6 b/src/core/Main.pm6
@@ -5,10 +5,10 @@
 #   * Allow exact Perl 6 forms, quoted away from shell
 # * Fix remaining XXXX
 
-my sub MAIN_HELPER($IN-as-ARGSFILES) {
+my sub MAIN_HELPER($IN-as-ARGSFILES, $retval = 0) {
     # Do we have a MAIN at all?
     my $m = callframe(1).my<&MAIN>;
-    return 0 unless $m;
+    return $retval unless $m;
 
     my %SUB-MAIN-OPTS  := %*SUB-MAIN-OPTS // {};
     my $no-named-after := nqp::isfalse(%SUB-MAIN-OPTS<named-anywhere>);