X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=d540004e638f2c9ad2051dc487a37433f50f5549;hb=f3adc82a0299652d929b73c718127fa38571eec5;hp=8f641a443c5d497dedb5322a077da674bb986a12;hpb=69003f56e5249357c746999c2feec5f44c258472;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 8f641a44..d540004e 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -210,6 +210,7 @@ sub state
 	if (@_) {
 		$self->{oldstate} = $self->{state};
 		$self->{state} = shift;
+		$self->{func} = '' unless defined $self->{func};
 		dbg('state', "$self->{call} channel func $self->{func} state $self->{oldstate} -> $self->{state}\n");
 	}
 	return $self->{state};