diff --git a/lib/RevBank/Prompt.pm b/lib/RevBank/Prompt.pm index d91547c..c28d63b 100755 --- a/lib/RevBank/Prompt.pm +++ b/lib/RevBank/Prompt.pm @@ -28,9 +28,9 @@ sub split_input($input) { while ( $input =~ m[ \G \s*+ - (?| (') (?{_P -1}) ( (?: \\. | [^\\'] )*+ ) ' (?{_P}) (?=\s|;|$) - | (") (?{_P -1}) ( (?: \\. | [^\\"] )*+ ) " (?{_P}) (?=\s|;|$) - | () ( (?: \\. | [^\\;'"\s] )++ ) (?{_P}) (?=\s|;|$) + (?| (') (?{_P -1}) ( (?: \\. | [^\\'] )*+ ) ' (?{_P}) (?=\s|;|$) + | (") (?{_P -1}) ( (?: \\. | [^\\"] )*+ ) " (?{_P}) (?=\s|;|$) + | () ( (?: \\. | [^\\;'"\s] )++ ) (?{_P}) (?=\s|;|$) | () (;) ) ]xg