From 71c56d1d1188fbbfb1849e2519f93003d7dab340 Mon Sep 17 00:00:00 2001 From: lookshe Date: Mon, 12 Oct 2015 12:49:33 +0200 Subject: fixed bug with punycode domains --- tld.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tld.pl b/tld.pl index 5fdbe68..ac684a5 100644 --- a/tld.pl +++ b/tld.pl @@ -45,7 +45,7 @@ for ($i = 0; $i < $#$table && found != 1; $i++) { $tabletype_enc = encode("utf8", $$table[$i+1]); #print "$$table[$i+1] is $$table[$i+2]\n"; - if ($tabletype_enc =~ /$type/) + if ($tabletype_enc =~ /^$type$/) { ($result = $$table[$i+2]) =~ s/^ //; print "$type is "; -- cgit v1.2.3