diff --git a/lualib/dns.lua b/lualib/dns.lua
index 6244b314..35e38084 100644
--- a/lualib/dns.lua
+++ b/lualib/dns.lua
@@ -88,7 +88,7 @@ local function verify_domain_name(name)
 	if #name > MAX_DOMAIN_LEN then
 		return false
 	end
-	if not name:match("^[%l%d-%.]+$") then
+	if not name:match("^[_%l%d%-%.]+$") then
 		return false
 	end
 	for w in name:gmatch("([_%w%-]+)%.?") do