no hello for main::mycall

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 0484d8fc5773c9012501c728c1b2eea8ea1ba6a6..b8123bfecd44c8c153c61f89fabcc568efec791e 100644 (file)
--- 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;
 }