fix here default

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 9c6b73af7eed9522f6a3ca7a4404e2b27e0e20b3..9dc967b6d1a85e43cc353fc64c8317d5d50ecc18 100644 (file)
--- 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;