From 44bbcb37d975a66b4c273d884248e443e51f8681 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 24 Sep 2007 23:16:03 +0100
Subject: [PATCH] reset the F*****g obscount on C and K records!

---
 perl/DXProtHandle.pm | 2 ++
 perl/Version.pm      | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

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;
-- 
2.34.1