X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FFilter.pm;h=aefa922419ee94afac488101b11c184aba45a8eb;hb=82de56e409a19a05761794c9588713160b51144e;hp=2981a7b75e6d9f06523f314f1e2c70ce5542215d;hpb=bfa8589d67aebae38f9ed41b4539577ad45b8f94;p=spider.git

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 2981a7b7..aefa9224 100644
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -106,9 +106,20 @@ sub it
 #
 sub read_in
 {
-	my ($sort, $call) = @_;
-	my $fn = "$filterbasefn/$sort/$call.pl";
+	my ($sort, $call, $flag) = @_;
+
+    # first uppercase
+	$flag = ($flag) ? "in_" : "";
+	$call = uc $call;
+	my $fn = "$filterbasefn/$sort/$flag$call.pl";
+
+	# otherwise lowercase
+	unless (-e $fn) {
+		$call = lc $call;
+		$fn = "$filterbasefn/$sort/$flag$call.pl";
+	}
 	
+	# load it
 	if (-e $fn) {
 		do "$fn";
 		dbg('conn', "$@") if $@;