fix warnings on $BRANCH

[spider.git] / perl / Thingy / Hello.pm

diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm
index f2d2d5d1a27b7545efa203336c250dcef28fdc34..63b352b4f06dcc3bd0474859fbbfeffa6344f3ad 100644 (file)
--- 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;