fix typo

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 3935231bf73fa76f0f7ea617cb8b022a5e424331..c01085a548693a996576b80b16732209435e8be0 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -106,7 +106,7 @@ sub start
        $self->{here} = 1;
 
        # sort out registration
-       if ($main::reqreq) {
+       if ($main::reqreg) {
                $self->{registered} = $user->registered;
        } else {
                $self->{registered} = 1;