From: minima <minima>
Date: Mon, 8 Jan 2007 10:34:16 +0000 (+0000)
Subject: and for a sample module
X-Git-Tag: 1.54~56
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=7b5fc52d020d360a455a8432afa9a51b290a7e99;p=spider.git

and for a sample module
---

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index e33a310f..84572b68 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -38,11 +38,6 @@ use DXProtHandle;
 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;
-
 use vars qw($pc11_max_age $pc23_max_age $last_pc50 $eph_restime $eph_info_restime $eph_pc34_restime
 			$last_hour $last10 %eph  %pings %rcmds $ann_to_talk
 			$pingint $obscount %pc19list $chatdupeage $chatimportfn
@@ -52,6 +47,8 @@ use vars qw($pc11_max_age $pc23_max_age $last_pc50 $eph_restime $eph_info_restim
 			$eph_pc15_restime $pc92_update_period $last_pc92_update
 		   );
 
+($VERSION, $BRANCH) = dxver(q$Revision$);
+
 $pc11_max_age = 1*3600;			# the maximum age for an incoming 'real-time' pc11
 $pc23_max_age = 1*3600;			# the maximum age for an incoming 'real-time' pc23