fix build numbering

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index 2a9913f1f9682a4a20bb62b84850c7dbbacadf96..7b9f1f30860642f826720298fdb8b21eb4d4c288 100644 (file)
--- a/perl/DXCron.pm
+++ b/perl/DXCron.pm
@@ -27,10 +27,8 @@ my $fn = "$main::cmd/crontab";
 my $localfn = "$main::localcmd/crontab";
 
 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));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
+
+main::mkver($VERSION = q$Revision$);
 
 # cron initialisation / reading in cronjobs
 sub init

diff --git a/perl/DXDb.pm b/perl/DXDb.pm
index 833640f5862b2d5dfa75a7b1666a35e53336ab6e..72ba15d10dac676c5a634523dbdc13ef8b3d8766 100644 (file)
--- a/perl/DXDb.pm
+++ b/perl/DXDb.pm
@@ -50,10 +50,8 @@ $nextstream = 0;
 %stream = ();
 
 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));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
+
+main::mkver($VERSION = q$Revision$);
 
 # allocate a new stream for this request
 sub newstream

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index b25b70a5b704c57f02ba863d88ca406a6bbdf651..5190b6b6cc49dd3ac5e9b1e66eeb2efa85e04616 100644 (file)
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -33,10 +33,8 @@ eval {
 use strict;
 
 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));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
+
+main::mkver($VERSION = q$Revision$);
 
 use vars qw(%work @msg $msgdir %valid %busy $maxage $last_clean $residencetime
                        @badmsg @swop $swopfn $badmsgfn $forwardfn @forward $timeout $waittime

diff --git a/perl/Investigate.pm b/perl/Investigate.pm
index 426e23ebfe11ab5650be7ecd79320da6662161f0..b7234b74208432c65101c9697af4a0c7072ad164 100644 (file)
--- a/perl/Investigate.pm
+++ b/perl/Investigate.pm
@@ -20,12 +20,9 @@ package Investigate;
 use DXDebug;
 use DXUtil;
 
-
 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));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
+
+main::mkver($VERSION = q$Revision$);
 
 use vars qw (%list %valid $pingint $maxpingwait);