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"}++;