Chessa::URI: stupify filters method

scripts/Chessa/URI.pm

@@ -135,8 +135,14 @@ sub filters {
 
     foreach my $uri (@uris) {
         foreach my $filter (@filters) {
-            my $regex = qr/$filter/;
-            if ($uri =~ /$filter/i) {
+            $uri = URI->new($uri);
+            my @uri_frags = split /\./, $uri;
+            my @filter_frags = split /\./, $filter;
+            while (@uri_frags > @filter_frags) {
+                shift @uri_frags;
+            }
+            $uri = join '.', @uri_frags;
+            if ((@uri_frags == @filter_frags) && (lc($filter) eq lc($uri))) {
                 return 1;
             }
         }