From 44bbcb37d975a66b4c273d884248e443e51f8681 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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.43.0