Prepare for git repository

[spider.git] / perl / Filter.pm

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 3009883b66f3a967665b46cc09e4b8310f5ff354..7879291968fd13fe1d154abd088c7a22a72a2718 100644 (file)
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -34,12 +34,6 @@ use Prefix;
 
 use strict;
 
-use vars qw($VERSION $BRANCH);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
-
 use vars qw ($filterbasefn $in);
 
 $filterbasefn = "$main::root/filter";
@@ -133,6 +127,7 @@ sub read_in
                        }
                } else {
                        # error on reading file, delete and exit
+                       dbg("empty or unreadable filter: $fn, deleted");
                        unlink($fn);
                        return undef;
                }