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

diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm
index f2d2d5d1..63b352b4 100644
--- a/perl/Thingy/Hello.pm
+++ b/perl/Thingy/Hello.pm
@@ -12,7 +12,7 @@ package Thingy::Hello;
 
 use vars qw($VERSION $BRANCH);
 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /^\d+\.\d+(?:\.(\d+)\.(\d+))?$/  || (0,0));
 $main::build += $VERSION;
 $main::branch += $BRANCH;
 
@@ -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;