From d5c81c31d8015e3ffef54babf10091f343b82815 Mon Sep 17 00:00:00 2001
From: Robert Spier <robert@perl.org>
Date: Fri, 4 Jul 2008 02:02:26 +0000
Subject: [PATCH] Fix missing capture group

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@932 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/uribl | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/plugins/uribl b/plugins/uribl
index 9ae4c8e..76115fc 100644
--- a/plugins/uribl
+++ b/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})
+            (
+	     [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;