Chessa::URI: look at the authority specifically, genius

scripts/Chessa/URI.pm

@@ -136,7 +136,7 @@ sub filters {
     foreach my $uri (@uris) {
         foreach my $filter (@filters) {
             $uri = URI->new($uri);
-            my @uri_frags = split /\./, $uri;
+            my @uri_frags = split /\./, $uri->authority;
             my @filter_frags = split /\./, $filter;
             while (@uri_frags > @filter_frags) {
                 shift @uri_frags;