From: Dirk Koopman <djk@tobit.co.uk>
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;