From e5c997014264879491d54f28811853a010519f5e Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sun, 8 Jul 2007 16:17:37 +0100 Subject: [PATCH] improve the fix slightly to avoid false positives --- perl/DXProtHandle.pm | 14 ++++++++------ perl/Version.pm | 2 +- 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index b58f95bf..16623045 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -1739,13 +1739,15 @@ sub handle_93 $dxchan = DXChannel::get($main::myalias) if $to eq $main::mycall; $dxchan = DXChannel::get($to) unless $dxchan; # check it... - if (ref $dxchan && $dxchan->isa('DXChannel')) { - if ($dxchan->is_user) { - $dxchan->talk($from, $to, $via, $text, $onode); - return; + if ($dxchan) { + if (ref $dxchan && $dxchan->isa('DXChannel')) { + if ($dxchan->is_user) { + $dxchan->talk($from, $to, $via, $text, $onode); + return; + } + } else { + dbg("ERROR: $to -> $dxchan is not a DXChannel! (local talk)"); } - } else { - dbg("ERROR: $to -> $dxchan is not a DXChannel! (local talk)"); } # convert to PC10 talks where appropriate diff --git a/perl/Version.pm b/perl/Version.pm index cb6fc877..7d815614 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '108'; +$build = '109'; 1; -- 2.34.1