X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=863789d3bd3a85cd8500953eba7f6fe573840090;hb=2c7556025be203a53e85ee7b8e2f799834cc71f6;hp=c65ebc6d6f40a4fbca6e96268086ef7705a4d452;hpb=c77f93ed41e28348d9553f31ab14fd6226c8ac42;p=spider.git diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index c65ebc6d..863789d3 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -823,7 +823,7 @@ sub handle_22 my $node = Route::Node::get($self->{call}); if ($node) { my @rout = map {my $r = Route::User::get($_); $r ? ($r) : ()} $node->users; - $self->route_pc92a($main::mycall, undef, $node, @rout); + $self->route_pc92c($main::mycall, undef, $node, @rout); } } }