made $in global so that read_in works

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 1e1913a27af1cec13eeed03f51e2962191899521..4f1f4e5336d51228d9c1b266f054a3b1d1344cf7 100644 (file)
--- 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;