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

Soft-require ';' after command arguments

Browse source 
Also: `next WORD if $word eq "\0SEPARATOR";` was in the wrong loop
(harmless until this change)
This commit is contained in:
Juerd Waalboer 2023-12-26 01:01:04 +01:00
parent daf0077d0d
commit 3c622ab6d4
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
revbank
View file

@ -182,10 +182,11 @@ OUTER: for (;;) {
my $origword = my $word = shift @words; my $origword = my $word = shift @words;
my @allwords = ($origword); my @allwords = ($origword);
next WORD if $word eq "\0SEPARATOR";
push @retry, $word; push @retry, $word;
ALL_PLUGINS: { PLUGIN: for my $plugin (@plugins) { ALL_PLUGINS: { PLUGIN: for my $plugin (@plugins) {
next WORD if $word eq "\0SEPARATOR";
$cart->prohibit_checkout( $cart->prohibit_checkout(
@words && $words[0] ne "\0SEPARATOR", @words && $words[0] ne "\0SEPARATOR",
@ -253,6 +254,14 @@ OUTER: for (;;) {
} }
} }
if ($rv == ACCEPT) { if ($rv == ACCEPT) {
if ($method ne 'command' and @words and $words[0] ne "\0SEPARATOR") {
@retry = (); # remove what's already done
push @retry, shift @words; # reject first
push @retry, [@words];
@words = ();
$retry = "Confirm trailing input to execute. (Hint: use ';' after command arguments.)";
redo OUTER;
}
@retry = (); @retry = ();
next OUTER; next OUTER;
} }