Mercurial > hg > maltfilter
comparison maltfilter @ 62:924720517cf9
Fix initialization of hash structure part, this fixes resetting of class hits to 1.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 17 Aug 2009 08:41:10 +0300 |
parents | 38885f5f34f6 |
children | 6917de5b91be |
comparison
equal
deleted
inserted
replaced
61:8b33436dd18b | 62:924720517cf9 |
---|---|
752 { | 752 { |
753 my ($struct, $mip, $mdate, $mclass, $mreason, $addhits) = @_; | 753 my ($struct, $mip, $mdate, $mclass, $mreason, $addhits) = @_; |
754 | 754 |
755 $struct->{$mip} = {} unless defined($struct->{$mip}); | 755 $struct->{$mip} = {} unless defined($struct->{$mip}); |
756 my $entry = $struct->{$mip}; | 756 my $entry = $struct->{$mip}; |
757 $struct->{$mip}{"reason"}{$mclass} = {}; | 757 $entry->{"reason"}{$mclass} = {} unless defined($entry->{"reason"}{$mclass}); |
758 my $reason = $struct->{$mip}{"reason"}{$mclass}; | 758 my $reason = $entry->{"reason"}{$mclass}; |
759 | 759 |
760 # Add hits only when requested | 760 # Add hits only when requested |
761 if ($addhits) { | 761 if ($addhits) { |
762 $entry->{"hits"}++; | 762 $entry->{"hits"}++; |
763 $reason->{"hits"}++; | 763 $reason->{"hits"}++; |