From a9fcec83aaf40b177ea3b7730a737cdca88eb388 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 15 Jun 2001 11:38:53 +0000 Subject: [PATCH] get it right! --- perl/Filter.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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'); -- 2.43.0