X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FFilter.pm;h=a53ae034b6cfc4fd88426a483e171a12aedfb6f7;hb=f155969d600561b9ef151a7ce2494a0c89aed033;hp=2981a7b75e6d9f06523f314f1e2c70ce5542215d;hpb=6aca4e461103870de99b0ce452f21cf7fedeb54b;p=spider.git

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 2981a7b7..a53ae034 100644
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -48,7 +48,6 @@ package Filter;
 use DXVars;
 use DXUtil;
 use DXDebug;
-use Carp;
 
 use strict;
 
@@ -106,9 +105,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 $@;