From 57f8bfa8204fa6af0d4ed605ee694e6c6ebff40a Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 15 Jun 2001 11:46:06 +0000 Subject: [PATCH] more cosmetic changes --- perl/Filter.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/perl/Filter.pm b/perl/Filter.pm index 2e1f4555..82130b93 100644 --- a/perl/Filter.pm +++ b/perl/Filter.pm @@ -216,16 +216,16 @@ sub it } # hops are done differently (simply) - my $hops = $self->{hops} if exists $self->{hops}; + my $hops = "H$self->{hops}" if exists $self->{hops}; if (isdbg('filter')) { my $args = join '\',\'', @_; - my $true = $r ? "OK" : "REJ"; + my $true = $r ? "OK " : "REJ"; my $sort = $self->{sort}; my $dir = $self->{name} =~ /^in_/i ? "IN " : "OUT"; - $hops ||= "none"; - dbg("$dir: $type/$sort with $asc on '$args': $true hops: $hops") if isdbg('filter'); + $hops ||= "H?"; + dbg("$true $dir: $type/$sort with $asc on '$args' $hops") if isdbg('filter'); } return ($r, $hops); } -- 2.43.0