get pc92 transfer call correct (ie don't change it)

[spider.git] / perl / DXProtHandle.pm

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 41986240d6d374c2b0248571199e2bc8dfbfc399..d8bb6ac834f00a0a8083cdb60f027b698048cba3 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -715,7 +715,7 @@ sub handle_19
        if (@rout) {
                $self->route_pc21($self->{call}, $line, @rout);
                $self->route_pc19($self->{call}, $line, @rout);
-               $self->route_pc92a($main::mycall, $line, $main::routemain, @rout);
+               $self->route_pc92a($main::mycall, $line, $main::routeroot, @rout);
        }
 }
                
@@ -787,7 +787,7 @@ sub handle_21
 
        if (@rout) {
                $self->route_pc21($origin, $line, @rout);
-               $self->route_pc92d($main::mycall, $line, $main::routemain, @rout);
+               $self->route_pc92d($main::mycall, $line, $main::routeroot, @rout);
        }
 }
                
@@ -1411,12 +1411,16 @@ sub handle_92
                return;
        }
 
-       $self->broadcast_route_pc9x($origin, undef, $line, 0);
+       $self->broadcast_route_pc9x($pcall, undef, $line, 0);
        foreach my $r (@rdel) {
+               next unless $r;
+               
                $self->route_pc21($pcall, undef, $r) if $r->isa('Route::Node');
                $self->route_pc17($pcall, undef, $parent, $r) if $r->isa('Route::User');
        }
        foreach my $r (@radd) {
+               next unless $r;
+
                $self->route_pc19($pcall, undef, $r) if $r->isa('Route::Node');
                $self->route_pc16($pcall, undef, $parent, $r) if $r->isa('Route::User');
        }