From: Dirk Koopman Date: Mon, 24 Sep 2007 22:16:03 +0000 (+0100) Subject: reset the F*****g obscount on C and K records! X-Git-Tag: 1.55~62 X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=44bbcb37d975a66b4c273d884248e443e51f8681;hp=e6c2021620d175b0aa8e5b76fc4ba2f5509b8ba7;p=spider.git reset the F*****g obscount on C and K records! --- diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index 5234cdab..4cca42f9 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -1659,6 +1659,7 @@ sub handle_92 return unless $parent; # dupe push @radd, $add if $add; + $parent->reset_obs; dbg("ROUTE: reset obscount on $parent->{call} now " . $parent->obscount) if isdbg('obscount'); } } elsif ($sort eq 'A' || $sort eq 'D' || $sort eq 'C') { @@ -1720,6 +1721,7 @@ sub handle_92 my (@nodes, @users); # we reset obscounts on config records as well as K records + $parent->reset_obs; dbg("ROUTE: reset obscount on $parent->{call} now " . $parent->obscount) if isdbg('obscount'); # diff --git a/perl/Version.pm b/perl/Version.pm index aecacaaa..d5140282 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '152'; +$build = '153'; 1;