X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXDb.pm;fp=perl%2FDXDb.pm;h=ab37f85291010d3ab951336a6a8d8b93dd1329af;hb=1fcf24aae37e929a6b9c2dab9ca5afff00d8db57;hp=49da69c9804b729aad3cd04c87e7a4165397c395;hpb=9e2fbafcfdab1ee45e581524311f1a97ac41f6ad;p=spider.git

diff --git a/perl/DXDb.pm b/perl/DXDb.pm
index 49da69c9..ab37f852 100644
--- a/perl/DXDb.pm
+++ b/perl/DXDb.pm
@@ -258,7 +258,7 @@ sub process
 			my $n = getstream($f[3]);
 			if ($n) {
 				my $mchan = DXChannel->get($n->{call});
-				$mchan->send($f[2] . ":$f[4]");
+				$mchan->send($f[2] . ":$f[4]") if $mchan;
 			}
 			last SWITCH;
 		}