fix type in broadcast

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 354d6f5d4407ddb3a2ecf93c87c7366854e5ef8e..f00a436adea5184da5c1e5f9ac79fd4e62ebd5bb 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -225,6 +225,7 @@ sub init
        $main::me->{registered} = 1;
        $main::me->{version} = 5252 + $main::version;
        $main::me->{build} = $main::build;
+       $main::me->{lastcf} = $main::me->{lasthello} = time;
 }
 
 #

diff --git a/perl/Thingy.pm b/perl/Thingy.pm
index 08d146678e2f5f07caaaa815714b7f50f43db760..c1f010c11e3a7c2790759a87acac08187e83fc6e 100644 (file)
--- a/perl/Thingy.pm
+++ b/perl/Thingy.pm
@@ -105,7 +105,7 @@ sub broadcast
                next if $dxchan == $main::me;
                next if grep $dxchan == $_, @_;
                next if $dxchan->{call} eq $thing->{origin};
-               next if $thing->{user} && !dxchan->is_user && $dxchan->{call} eq $thing->{user};
+               next if $thing->{user} && !$dxchan->is_user && $dxchan->{call} eq $thing->{user};
                
                dbg("Thingy::broadcast: sending to $dxchan->{call}") if isdbg('thing');
                $thing->send($dxchan);