X-Git-Url: http://gitweb.michael.orlitzky.com/?p=valtz.git;a=blobdiff_plain;f=valtz;h=eebda76f4b17beb77fce88c1d3b4f5ecb282428f;hp=c68c120e9a96b324a5de4619f3857b418d551e75;hb=7c5df8ad5c18a9f8b9440dbd1ae4faacf55b452a;hpb=422cc33cf0da52d10c271a75cda271d5963da4eb

diff --git a/valtz b/valtz
index c68c120..eebda76 100644
--- a/valtz
+++ b/valtz
@@ -202,7 +202,7 @@ my %token_validator = (
         # check all parts
         for my $hostpart (split /\./, $s)
         {
-            return 1005 unless $hostpart =~ /^[-a-z0-9]+$/i;
+            return 1005 unless $hostpart =~ /^_?[-a-z0-9]+$/i;
             return 1006 if $hostpart =~ /^-/;
             return 1007 if $hostpart =~ /-$/;
         }
@@ -268,7 +268,7 @@ my %token_validator = (
         # check all parts
         for (split /\./, $s)
         {
-            return 1005 unless /^[-[a-z0-9]+$/i;
+            return 1005 unless /^_?[-[a-z0-9]+$/i;
             return 1006 if /^-/;
             return 1007 if /-$/;
         }