added an extra sorry

[spider.git] / perl / DXCommandmode.pm

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index d05af70a2936bd67c3ee9aec70b5a3142c8c0426..f9981349cb0e1b4d1766f4f72a489782776f3a02 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -144,6 +144,8 @@ sub normal
                        } else {
                                $self->send($self->msg('sorry'));
                        }
+               } else {
+                       $self->send($self->msg('sorry'));
                }
                delete $self->{passwd};
                $self->state('prompt');