From cce337f777f0b7668cceebb40527fd1e106729c9 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 24 Feb 2005 11:14:56 +0000
Subject: [PATCH] fix type in broadcast

---
 perl/DXProt.pm | 1 +
 perl/Thingy.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 354d6f5d..f00a436a 100644
--- 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 08d14667..c1f010c1 100644
--- 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); 
-- 
2.34.1