X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FFilter.pm;h=2c32bf025981465e9ae9b8f374fddeb2fa53527c;hb=72568e838d146250a78fea19bd4bbafc760e6a49;hp=b027041c8c664711a0faaf511259bbcb147653c8;hpb=6ccc3a6e864a2fee18786a7070400c7c4f22cf7c;p=spider.git

diff --git a/perl/Filter.pm b/perl/Filter.pm
index b027041c..2c32bf02 100644
--- 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 $ref = $dxchan->$n;
-		if (!$ref || ($ref && uc $ref->{name} eq "$name.PL")) {
+		my $i = $in ? 'IN_' : '';
+		my $ref = $dxchan->$n();
+		if (!$ref || ($ref && uc $ref->{name} eq "$i$name.PL")) {
 			$dxchan->$n($remove ? undef : $self);
 		}
 	}