new cty.dat, sh/425 and cosmetic changes to filter.pm

[spider.git] / perl / Filter.pm

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 3009883b66f3a967665b46cc09e4b8310f5ff354..b3c0dbfac04e2abb9e406e4599918b447390b033 100644 (file)
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -133,6 +133,7 @@ sub read_in
                        }
                } else {
                        # error on reading file, delete and exit
+                       dbg("empty or unreadable filter: $fn, deleted");
                        unlink($fn);
                        return undef;
                }