Show unmodified input in error message
This commit is contained in:
parent
10eeabf707
commit
382940bfc9
1 changed files with 2 additions and 2 deletions
4
revbank
4
revbank
|
@ -194,7 +194,7 @@ OUTER: for (;;) {
|
|||
redo PROMPT if not @words;
|
||||
abort if grep $_ eq 'abort', @words;
|
||||
|
||||
my $word = shift @words;
|
||||
my $origword = my $word = shift @words;
|
||||
push @retry, $word;
|
||||
|
||||
PLUGIN: for my $plugin (@plugins) {
|
||||
|
@ -248,7 +248,7 @@ OUTER: for (;;) {
|
|||
call_hooks "plugin_fail", $plugin->id, "Invalid return value";
|
||||
abort;
|
||||
}
|
||||
call_hooks "invalid_input", $cart, $word;
|
||||
call_hooks "invalid_input", $cart, $origword, $word;
|
||||
@retry = ();
|
||||
abort if @words;
|
||||
redo OUTER;
|
||||
|
|
Loading…
Add table
Reference in a new issue