fiddle about with 'bye'

[spider.git] / perl / DXCommandmode.pm

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 58b4296934c5a5ae0c6d44d81a5394ea01d9401c..c03885526a9ed96664d31f75e31a7995eac48bf8 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -288,6 +288,7 @@ sub normal
                }
                if ($@) {
                        $self->send_ans("Syserr: on stored func $self->{func}", $@);
+                       delete $self->{func};
                        $self->state('prompt');
                        undef $@;
                }