X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=f0dd2760765f3fc6dc0e0a734d935681cd57504e;hb=5f157325d2246e684a8e41ab47bd02638b3bed8d;hp=241b7c3a4b316b33e229f8f13004e4bcba0a305d;hpb=bfb3961b8ac7b159ef8155361003bfdd9d26dfad;p=spider.git diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index 241b7c3a..f0dd2760 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -1458,6 +1458,8 @@ sub handle_92 $parent->do_pc92(1); $parent->via_pc92(1); $parent->reset_obs; + dbg("ROUTE: reset obscount on $pcall now " . $parent->obscount) if isdbg('route'); + if (@ent) { @@ -1481,7 +1483,10 @@ sub handle_92 dbg("PCPROT: no previous C or A for this external node received, ignored") if isdbg('chanerr'); return; } - my $parent = check_pc9x_t($call, $t, 92) || return; + $parent = check_pc9x_t($call, $t, 92) || return; + $parent->via_pc92(1); + $parent->reset_obs; + dbg("ROUTE: reset obscount on $pcall now " . $parent->obscount) if isdbg('route'); } } else { dbg("PCPROT: must be mycall or external node as first entry, ignored") if isdbg('chanerr'); @@ -1490,8 +1495,6 @@ sub handle_92 $parent->here(Route::here($here)); $parent->version($version) if $version && $version > $parent->version; $parent->build($build) if $build && $build > $parent->build; - $parent->via_pc92(1); - $parent->reset_obs; shift @ent; }