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

Improve error message

Browse source
This commit is contained in:
Juerd Waalboer 2023-12-26 04:06:22 +01:00
parent a1e5d310a9
commit 45f7ccbe28
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
revbank
View file

@ -215,7 +215,10 @@ OUTER: for (;;) {
@retry = @words = (); @retry = @words = ();
$retry = "Syntax error."; $retry = "Syntax error.";
if ($input =~ /['"]/) { if ($input =~ /['"]/) {
$retry .= " (Quotes must be at beginning and end of terms only.)"; $retry .= " (Quotes must match and (only) be at both ends of a term.)";
if (($input =~ tr/'//) == 1 and $input !~ /"/) {
$retry .= "\nDid you mean: " . $input =~ s/'/\\'/r;
}
} }
push @retry, substr($input, 0, $pos) if $pos > 0; push @retry, substr($input, 0, $pos) if $pos > 0;
push @retry, substr($input, $pos); push @retry, substr($input, $pos);