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

Allow quoted ";"

Browse source 
Leftover line of code from an earlier attempt.
This commit is contained in:
Juerd Waalboer 2023-12-26 20:17:18 +01:00
parent 0de7e2dda6
commit 573731cb61
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
revbank
View file

@ -17,7 +17,7 @@ use RevBank::Global;
use RevBank::Messages; use RevBank::Messages;
use RevBank::Cart; use RevBank::Cart;
our $VERSION = "5.0.0"; our $VERSION = "5.0.1";
our %HELP1 = ( our %HELP1 = (
"abort" => "Abort the current transaction", "abort" => "Abort the current transaction",
); );
@ -57,11 +57,7 @@ sub split_input($input) {
return \$pos if $pos < length($input); return \$pos if $pos < length($input);
# End of string reached # End of string reached
for my $term (@terms) { s/\\(.)/$1/g for @terms;
$term =
$term eq ';' ? "\0SEPARATOR"
: $term =~ s/\\(.)/$1/gr;
}
return @terms; return @terms;
} }