1. did some work on making talk more intelligent and fixed a>b problem.

[spider.git] / perl / Filter.pm

diff --git a/perl/Filter.pm b/perl/Filter.pm
index fdc06d1ae87454d3f9a81772fd403c6c80e82c7e..2c32bf025981465e9ae9b8f374fddeb2fa53527c 100644 (file)
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -226,7 +226,7 @@ sub it
        my $hops = $self->{hops} if exists $self->{hops};
 
        if (isdbg('filter')) {
-               my $args = join '\',\'', @_;
+               my $args = join '\',\'', map {defined $_ ? $_ : 'undef'} @_;
                my $true = $r ? "OK " : "REJ";
                my $sort = $self->{sort};
                my $dir = $self->{name} =~ /^in_/i ? "IN " : "OUT";
@@ -310,8 +310,9 @@ sub install
        }
        foreach $dxchan (@dxchan) {
                my $n = "$in$sort" . "filter";
+               my $i = $in ? 'IN_' : '';
                my $ref = $dxchan->$n();
-               if (!$ref || ($ref && uc $ref->{name} eq "$name.PL")) {
+               if (!$ref || ($ref && uc $ref->{name} eq "$i$name.PL")) {
                        $dxchan->$n($remove ? undef : $self);
                }
        }