From c53f72111659792f75dd5040b7ee27e729f1ed78 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Sun, 21 Feb 1999 20:07:09 +0000
Subject: [PATCH] made $in global so that read_in works
---
perl/Filter.pm | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
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;
--
2.43.0