From: 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://dxcluster.org/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; }