From: djk <djk>
Date: Sun, 21 Feb 1999 20:07:09 +0000 (+0000)
Subject: made $in global so that read_in works
X-Git-Tag: R_1_24~8
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=c53f72111659792f75dd5040b7ee27e729f1ed78;p=spider.git

made $in global so that read_in works
---

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 1e1913a2..4f1f4e53 100644
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -51,9 +51,10 @@ use Carp;
 
 use strict;
 
-use vars qw ($filterbasefn);
+use vars qw ($filterbasefn $in);
 
 $filterbasefn = "$main::root/filter";
+$in = undef;
 
 # initial filter system
 sub init
@@ -103,10 +104,10 @@ sub read_in
 {
 	my ($sort, $call) = @_;
 	my $fn = "$filterbasefn/$sort/$call.pl";
-	my $in;
 	
 	if (-e $fn) {
-		do $fn;
+		do "$fn";
+		dbg('conn', "$@") if $@;
 		return $in;
 	}
 	return undef;