added spoofing

[spider.git] / perl / DXDb.pm

diff --git a/perl/DXDb.pm b/perl/DXDb.pm
index 49da69c9804b729aad3cd04c87e7a4165397c395..ab37f85291010d3ab951336a6a8d8b93dd1329af 100644 (file)
--- 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;
                }