RT #115744 - "--" should stop MAIN arg processing

rakudo · Aug 26, 2015 · a7c845c · a7c845c
1 parent deb7b86
commit a7c845c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/Main.pm b/src/core/Main.pm
@@ -41,9 +41,11 @@ my sub MAIN_HELPER($retval = 0) {
     # Convert raw command line args into positional and named args for MAIN
     my sub process-cmd-args (@args is copy) {
         my (@positional-arguments, %named-arguments);
+        my $stopped = False;
         while (@args) {
             my $passed-value = @args.shift;
-            if $passed-value ~~ /^ ( '--' | '-' | ':' ) ('/'?) (<-[0..9\.]> .*) $/ {
+            $stopped = $passed-value eq '--';
+            if !$stopped && $passed-value ~~ /^ ( '--' | '-' | ':' ) ('/'?) (<-[0..9\.]> .*) $/ {
                 my ($switch, $negate, $arg) = (~$0, ?((~$1).chars), ~$2);
 
                 with $arg.index('=') {