Author: robert
Date: Thu Jul 3 19:02:26 2008
New Revision: 932
Modified:
trunk/plugins/uribl
Log:
Fix missing capture group
Modified: trunk/plugins/uribl
==============================================================================
--- trunk/plugins/uribl (original)
+++ trunk/plugins/uribl Thu Jul 3 19:02:26 2008
@@ -369,11 +369,13 @@
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;
