Permalink
Browse files

confirmed. We're eating args for flagged tokens. Bad.

  • Loading branch information...
1 parent 27be0ba commit a98b3b354bad102ec107ebbf836752a97fbb95e5 @jettero committed Jul 20, 2014
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/Term/ReadLine/CLISH/Parser.pm
View
4 lib/Term/ReadLine/CLISH/Parser.pm
@@ -352,7 +352,7 @@ sub _try_to_eat_tagged_arguments {
my ($arg) = splice @$cmd_args, $midx, 1;
my @nom = splice @$arg_tokens, 0, 2;
- { local $" = ", "; debug "ate arg=$arg and tok=<@nom>" if $ENV{CLISH_DEBUG}; }
+ { local $" = ", "; debug "[tagged] ate arg=$arg and tok=<@nom>" if $ENV{CLISH_DEBUG}; }
# populate the option in argss
$arg->add_copy_with_token_to_hashref( $out_args => $ntok );
@@ -399,7 +399,7 @@ sub _try_to_eat_untagged_arguments {
my ($arg) = splice @$cmd_args, $midx, 1;
my ($nom) = splice @$arg_tokens, 0, 1;
- debug "ate arg=$arg and tok=<$nom>" if $ENV{CLISH_DEBUG};
+ debug "[untagged] ate arg=$arg and tok=<$nom>" if $ENV{CLISH_DEBUG};
# populate the option in argss
$arg->add_copy_with_token_to_hashref( $out_args => $tok );

0 comments on commit a98b3b3

Please sign in to comment.