Don't treat an option prefix followed immediately by a digit or perio…

…d as an option (it's probably a negative or radix-notation number)

src/core/Main.pm

@@ -84,7 +84,7 @@ my sub MAIN_HELPER($retval = 0) {
         my (@positional-arguments, %named-arguments);
         while (@args) {
             my $passed-value = @args.shift;
-            if $passed-value ~~ /^ ( '--' | '-' | ':' ) ('/'?) (.+) $/ {
+            if $passed-value ~~ /^ ( '--' | '-' | ':' ) ('/'?) (<-[0..9\.]> .*) $/ {
                 my ($switch, $negate, $arg) = (~$0, ?((~$1).chars), ~$2);
 
                 if $arg.index('=').defined  {