reset the F*****g obscount on C and K records!

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 5234cdab93a071546c3aee179cc35623e1768f50..4cca42f90f5ca3f5618ca8387892e5c4de7ae4f4 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1659,6 +1659,7 @@ sub handle_92
                        return unless $parent; # dupe
 
                        push @radd, $add if $add;
                        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') {
                        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
                        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');
 
                        #
                        dbg("ROUTE: reset obscount on $parent->{call} now " . $parent->obscount) if isdbg('obscount');
 
                        #

diff --git a/perl/Version.pm b/perl/Version.pm
index aecacaaad664a4e7479c2c2d9ef3722d29a2f103..d5140282b83ec48f9a0baa8aa2622edaec9b5515 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
 
 $version = '1.54';
 $subversion = '0';

-$build = '152';
+$build = '153';

 
 1;
 
 1;