From: 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;