From 932963ed9d401e4f2db8e245fb6111e9c93d25eb Mon Sep 17 00:00:00 2001
From: Martin Barth <ufobat@users.noreply.github.com>
Date: Thu, 20 Apr 2023 11:54:10 +0200
Subject: [PATCH] Fixed bug in regex in split

you wanted to split on " " (AND|OR)  " " instead of " AND" | "OR "
---
 lib/SQL/Parser.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/SQL/Parser.pm b/lib/SQL/Parser.pm
index 298bba3..a361ae6 100644
--- a/lib/SQL/Parser.pm
+++ b/lib/SQL/Parser.pm
@@ -619,7 +619,7 @@ sub EXPLICIT_JOIN
             $tableB = $1;
             my $keycolstr = $2;
             $remainder = $3;
-            @$keycols = split(/ AND|OR /i, $keycolstr);
+            @$keycols = split(/ (AND|OR) /i, $keycolstr);
 
             return undef
               unless $self->TABLE_NAME_LIST( $tableA . ',' . $tableB );