diff -Nur qpsmtpd-0.96/plugins/uribl qpsmtpd-0.96_bz9467/plugins/uribl --- qpsmtpd-0.96/plugins/uribl 2016-07-11 22:28:55.105488861 +0200 +++ qpsmtpd-0.96_bz9467/plugins/uribl 2016-07-11 22:32:14.607442677 +0200 @@ -96,6 +96,9 @@ use Time::HiRes qw(time); use IO::Select; +use Data::Validate::Domain; + +my $v = Data::Validate::Domain->new; # ccTLDs that allocate domain names within a strict two-level hierarchy, # as in *.co.uk @@ -348,7 +351,7 @@ museum|name|net|org|pro|tel|travel| [a-zA-Z]{2}) )(?!\w) - }gix + }gix && $v->is_domain($1) ) { my $host = lc $1; @@ -393,7 +396,7 @@ museum|name|net|org|pro|tel|travel| [a-zA-Z]{2}) ) - }gix + }gix && $v->is_domain($1) ) { my $host = lc $1;