fixed hostname regex

2016-02-22 09:22:56 -05:00
parent 1a0768b779
commit 5c54c53911
3 changed files with 3 additions and 3 deletions
--- a/DDNS.pm
+++ b/DDNS.pm
@ -29,7 +29,7 @@ sub _validateOrDie {
    die "No domain provided"
 	unless $dom;
    die "Invalid domain name (must end in a dot)"
-	unless ($dom =~ /^[a-zA-Z0-9\.]+\.$/);
+	unless ($dom =~ /^[a-zA-Z0-9\.\-\_]+\.$/);
 }

 sub _lookupOrDie {