From: minima Date: Sat, 9 Jun 2001 15:13:23 +0000 (+0000) Subject: fix here default X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=5ace616f093a2e34141d14cbb310d1b048034c0e;p=spider.git fix here default --- diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 9c6b73af..9dc967b6 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -52,7 +52,7 @@ sub new # routing, this must go out here to prevent race condx my $pkg = shift; my $call = shift; - my @rout = $main::routeroot->add_user($call, Route::here($self->{here})); + my @rout = $main::routeroot->add_user($call, Route::here(1)); DXProt::route_pc16($DXProt::me, $main::routeroot, @rout) if @rout; return $self;