X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy%2FHello.pm;h=c991a901e274a1036e348be0a763efc96996cb17;hb=3c772f881b05406e916a1bf959aa1266c7e216b9;hp=f2d2d5d1a27b7545efa203336c250dcef28fdc34;hpb=5b3c2c5e342c23fbab96b7573c5963344617878f;p=spider.git

diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm
index f2d2d5d1..c991a901 100644
--- a/perl/Thingy/Hello.pm
+++ b/perl/Thingy/Hello.pm
@@ -67,11 +67,18 @@ sub handle
 		if ($dxchan->{state} ne 'normal') {
 			$dxchan->start($dxchan->{conn}->{csort}, $dxchan->{conn}->{outbound} ? 'O' : 'A');
 			if ($dxchan->{outbound}) {
-				my $thing = Thingy::Hello->new(origin=>$main::mycall, group=>'ROUTE');
+				my $thing = Thingy::Hello->new();
 				$thing->send($dxchan);
 			}
 		}
 	}
 	$thing->broadcast($dxchan);
 }
+
+sub new
+{
+	my $pkg = shift;
+	my $thing = $pkg->SUPER::new(origin=>$main::mycall, group=>'RT');
+	return $thing;
+}
 1;