projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix very long standing bug in storing and transmitting spots. The decimal
[spider.git]
/
perl
/
Filter.pm
diff --git
a/perl/Filter.pm
b/perl/Filter.pm
index b927dc1f0700c0917e9bccbc61f0f345123c2c54..fbdb4f300fb579162fa34708504bac792f59a1a9 100644
(file)
--- a/
perl/Filter.pm
+++ b/
perl/Filter.pm
@@
-271,12
+271,11
@@
sub install
my $remove = shift;
my $name = uc $self->{name};
my $sort = $self->{sort};
my $remove = shift;
my $name = uc $self->{name};
my $sort = $self->{sort};
- my
($in) =
$name =~ s/^IN_//;
+ my
$in = "in" if
$name =~ s/^IN_//;
$name =~ s/.PL$//;
my $dxchan = DXChannel->get($name);
if ($dxchan) {
$name =~ s/.PL$//;
my $dxchan = DXChannel->get($name);
if ($dxchan) {
- $in = lc $in if $in;
my $n = "$in$sort" . "filter";
$dxchan->$n($remove ? undef : $self);
}
my $n = "$in$sort" . "filter";
$dxchan->$n($remove ? undef : $self);
}