Changeset 1679

Timestamp:

09/13/06 19:39:12

Author:

miyagawa

Message:

Rule::URLBL: fixed URI::_generic calling host bug

Files:

• trunk/plagger (modified) (previous)
• trunk/plagger/deps/Rule-URLBL.yaml (added)
• trunk/plagger/lib/Plagger/Rule/URLBL.pm (modified) (1 diff)
• trunk/plagger/t/plugins/Rule-URLBL (added)
• trunk/plagger/t/plugins/Rule-URLBL/base.t (added)

trunk/plagger/lib/Plagger/Rule/URLBL.pm

@@ -28 +28 @@
-
-    my $uri = URI->new($url);
+    return 1 unless $uri->can('host');
+
-    my $domain = $uri->host;
-    $domain =~ s/^www\.//;