From: minima <minima>
Date: Sat, 19 Feb 2005 22:34:36 +0000 (+0000)
Subject: no hello for main::mycall
X-Git-Tag: R_1_52~183
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=89e4fd14125a1eb60cfd9ad2938614083ddaeb67;p=spider.git

no hello for main::mycall
---

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;
 }