bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Show unmodified input in error message

Browse source
This commit is contained in:
Juerd Waalboer 2023-01-30 06:12:23 +01:00
parent 10eeabf707
commit 382940bfc9
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
revbank
View file

@ -194,7 +194,7 @@ OUTER: for (;;) {
redo PROMPT if not @words; redo PROMPT if not @words;
abort if grep $_ eq 'abort', @words; abort if grep $_ eq 'abort', @words;
my $word = shift @words; my $origword = my $word = shift @words;
push @retry, $word; push @retry, $word;
PLUGIN: for my $plugin (@plugins) { PLUGIN: for my $plugin (@plugins) {
@ -248,7 +248,7 @@ OUTER: for (;;) {
call_hooks "plugin_fail", $plugin->id, "Invalid return value"; call_hooks "plugin_fail", $plugin->id, "Invalid return value";
abort; abort;
} }
call_hooks "invalid_input", $cart, $word; call_hooks "invalid_input", $cart, $origword, $word;
@retry = (); @retry = ();
abort if @words; abort if @words;
redo OUTER; redo OUTER;