projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8942c27
)
made $in global so that read_in works
author
djk
<djk>
Sun, 21 Feb 1999 20:07:09 +0000
(20:07 +0000)
committer
djk
<djk>
Sun, 21 Feb 1999 20:07:09 +0000
(20:07 +0000)
perl/Filter.pm
patch
|
blob
|
history
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;