From 89e4fd14125a1eb60cfd9ad2938614083ddaeb67 Mon Sep 17 00:00:00 2001 From: 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.43.0