now get it right!

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 8dcb9b6cf9b0b07451199d825fddee6ce451205c..6258acb4a104b8186efd36935ed3de0cb390f7f2 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -128,7 +128,7 @@ sub start
        # do we need to send a forward/opernam?
        my $lastoper = $user->lastoper || 0;
        my $homenode = $user->homenode || ""; 
-       if ($homenode eq $main::mycall && $lastoper < $main::systime + $DXUser::lastoperinterval) {
+       if ($homenode eq $main::mycall && $lastoper + $DXUser::lastoperinterval < $main::systime) {
                run_cmd($DXProt::me, "forward/opernam $call");
                $user->lastoper($main::systime);
        }