Supress RegExp Error when the script is empty

diff --git a/bottleclient/BottleChainRule.pas b/bottleclient/BottleChainRule.pas
index a7ca11f..0972c11 100755 (executable)
--- a/bottleclient/BottleChainRule.pas
+++ b/bottleclient/BottleChainRule.pas
@@ -1318,7 +1318,10 @@ begin
   if not (Event is TBottleChainBottleEvent) then Exit;
   Dat := (Event as TBottleChainBottleEvent).Data;
   try
-    Result := RegExp.Match(Pattern, Dat['Script']);
+    if Dat['Script'] <> '' then
+      Result := RegExp.Match(Pattern, Dat['Script'])
+    else
+      Result := false;
   except
     on E: EBRegExpError do begin
       ShowMessage('\90³\8bK\95\\8c»\83G\83\89\81['#13#10#13#10 + E.Message);