Fix perl6 -pe 'stuff'

Raku · Apr 23, 2014 · 8ec9562 · 8ec9562
1 parent 8ac1a92
commit 8ec9562
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/HLL/CommandLine.nqp b/src/HLL/CommandLine.nqp
@@ -257,9 +257,10 @@ class HLL::CommandLine::Parser {
                             if %!options{$o} {
                                 if self.wants-value($o) {
                                     if $i + 1 == $len {
-                                        nqp::die("Option '$o' in grouped options '-$opt' needs a value, but does not have one");
+                                        $result.add-option($o, get-value("-$o"));
+                                    } else {
+                                        $result.add-option($o, nqp::substr($opt, $i + 1));
                                     }
-                                    $result.add-option($o, nqp::substr($opt, $i + 1));
                                     last;
                                 }
                                 else {