From 89e4fd14125a1eb60cfd9ad2938614083ddaeb67 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 19 Feb 2005 22:34:36 +0000
Subject: [PATCH] no hello for main::mycall

---
 perl/DXProt.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 0484d8fc..b8123bfe 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -239,8 +239,10 @@ sub new
 	my $pkg = shift;
 	my $call = shift;
 	$main::routeroot->add($call, '5000', Route::here(1)) if $call ne $main::mycall;
-	my $thing = Thingy::Hello->new(user=>$call);
-	$thing->broadcast($self);
+	if ($self->{call} ne $main::mycall) {
+		my $thing = Thingy::Hello->new(user=>$call);
+		$thing->broadcast($self);
+	}
 	
 	return $self;
 }
-- 
2.34.1