X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=c03885526a9ed96664d31f75e31a7995eac48bf8;hb=b735ad9a0325fae9ca0c2324794b99288a737802;hp=58b4296934c5a5ae0c6d44d81a5394ea01d9401c;hpb=ec5995e84ce9c1b25112e1ee8a2bc7d01f033beb;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 58b42969..c0388552 100644
--- 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 $@;
 		}