From 573731cb61fc9fe893a1875e93b49628f73d3bba Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Tue, 26 Dec 2023 20:17:18 +0100
Subject: [PATCH] Allow quoted ";"

Leftover line of code from an earlier attempt.
---
 revbank | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

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