use strict;
-use vars qw ($filterbasefn);
+use vars qw ($filterbasefn $in);
$filterbasefn = "$main::root/filter";
+$in = undef;
# initial filter system
sub init
{
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;