Merge git://github.com/rfc1036/whoisHEADmaster

1 files changed, 4 insertions, 3 deletions

diff --git a/make_tld_serv.pl b/make_tld_serv.pl
index 60d557c..0734702 100755
--- a/make_tld_serv.pl
+++ b/make_tld_serv.pl
@@ -9,14 +9,15 @@ while (<>) {
 	s/^\s+//; s/\s+$//;
 	next if /^$/;
 
-	die "format error: $_" unless
-		(my ($a, $b) = /^([\w\d\.-]+)\s+([\w\d\.:-]+|[A-Z]+\s+.*)$/);
+	die "format error: $_" if not
+		(my ($a, $b) = /^\.(\w[\w\d\.-]+)\s+([\w\d\.:-]+|[A-Z]+\s+.*)$/);
 
 	$b =~ s/^W(?:EB)?\s+/\\x01/;
 	$b =~ s/^VERISIGN\s+/\\x04" "/;
 	$b = "\\x03" if $b eq 'NONE';
 	$b = "\\x08" if $b eq 'AFILIAS';
 	$b = "\\x0C" if $b eq 'ARPA';
-	print qq(    "$a",\t"$b",\n);
+	$b = "\\x0D" if $b eq 'IP6';
+	print qq|    "$a",\t"$b",\n|;
 }