From: minima <minima>
Date: Fri, 15 Jun 2001 11:38:53 +0000 (+0000)
Subject: get it right!
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=a9fcec83aaf40b177ea3b7730a737cdca88eb388;p=spider.git

get it right!
---

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 676cef2b..2e1f4555 100644
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -222,7 +222,7 @@ sub it
 		my $args = join '\',\'', @_;
 		my $true = $r ? "OK" : "REJ";
 		my $sort = $self->{sort};
-		my $dir = $self->{name} ~= /^in_/i ? "IN " : "OUT";
+		my $dir = $self->{name} =~ /^in_/i ? "IN " : "OUT";
 		
 		$hops ||= "none";
 		dbg("$dir: $type/$sort with $asc on '$args': $true hops: $hops") if isdbg('filter');