Fix missing capture group

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@932 958fd67b-6ff1-0310-b445-bb7760255be9

plugins/uribl

@@ -369,11 +369,13 @@ sub lookup_start {
         while ($l =~ m{
             \w{3,16}:/+                 # protocol
             (?:\S+@)?                   # user/pass
+            (
 	     [a-zA-Z0-9][a-zA-Z0-9\-.]+\.           # hostname
 	     (?:aero|arpa|asia|biz|cat|com|coop|    # tld
                 edu|gov|info|int|jobs|mil|mobi|
                 museum|name|net|org|pro|tel|travel|
                 [a-zA-Z]{2})
+            )
             }gix) {
             my $host = lc $1;
             my @host_domains = split /\./, $host;