From f13ddfc5ddac9ea7b50a564aff69ccc2684ef0bd Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Fri, 3 Jul 2020 12:12:03 +0200
Subject: [PATCH] Allow underscores in IP address wildcards of users, in
 conjunction with --skip-name-resolve on the server. Closes #1080

---
 source/usermanager.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/source/usermanager.pas b/source/usermanager.pas
index b8c26b4b..afdcaacd 100644
--- a/source/usermanager.pas
+++ b/source/usermanager.pas
@@ -1501,7 +1501,8 @@ var
   rx: TRegExpr;
 begin
   rx := TRegExpr.Create;
-  rx.Expression := '^(localhost|[\d\.\/\:]+|.*%.*|[\w\d]{4}\:.*)$';
+  // Valid ips or wildcards which do not need name resolving:
+  rx.Expression := '^(localhost|[\d\.\/\:_]+|.*%.*|[\w\d_]{4}\:.*)$';
   Result := not rx.Exec(Host);
   rx.Free;
 end;