treat PC61 as PC11.

[spider.git] / perl / DXProtHandle.pm

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 5234cdab93a071546c3aee179cc35623e1768f50..d73bbc62c77a448aaed8278d61025daed5654b97 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1265,6 +1265,8 @@ sub handle_51
        }
 }
 
+sub handle_61 { goto &handle_11; }
+
 # dunno but route it
 sub handle_75
 {
@@ -1659,6 +1661,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 +1723,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');
 
                        #