X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=d73bbc62c77a448aaed8278d61025daed5654b97;hb=6ca24487551f66211b94d8a719e482ee3af81a29;hp=5234cdab93a071546c3aee179cc35623e1768f50;hpb=f09464a2adc21df62f4e46d59fb6d1eade02121e;p=spider.git diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index 5234cdab..d73bbc62 100644 --- 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'); #