From 7b10171a637c3aef830d309b27739cf4aeba939b Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 21 Feb 2005 00:00:38 +0000
Subject: [PATCH] fix build numbering

---
 perl/DXCron.pm      | 6 ++----
 perl/DXDb.pm        | 6 ++----
 perl/DXMsg.pm       | 6 ++----
 perl/Investigate.pm | 7 ++-----
 4 files changed, 8 insertions(+), 17 deletions(-)

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index 2a9913f1..7b9f1f30 100644
--- 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 833640f5..72ba15d1 100644
--- 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 b25b70a5..5190b6b6 100644
--- 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 426e23eb..b7234b74 100644
--- 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);
 
-- 
2.34.1