Allow up to 6 character TLDs.

[autodns.git] / autodns.pl

diff --git a/autodns.pl b/autodns.pl
index 67beb7a92a8f9c65cc003298d9bf0ae2915421ee..fa4e09b6a337cb4005e18f1a2b62d126ad5e3571 100755 (executable)
--- a/autodns.pl
+++ b/autodns.pl
@@ -74,7 +74,7 @@ sub valid_domain($) {
        my $domain = shift;
        $domain = lc $domain;
 
-       if ($domain =~ /^(?:[a-z0-9-]+\.)+[a-z]{2,4}$/) {
+       if ($domain =~ /^(?:[a-z0-9-]+\.)+[a-z]{2,6}$/) {
                return 1;
        } elsif ($domain =~ /^(?:[0-9\/-]+\.)+in-addr.arpa$/) {
                return 1;