From 7b5fc52d020d360a455a8432afa9a51b290a7e99 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 8 Jan 2007 10:34:16 +0000 Subject: [PATCH] and for a sample module --- perl/DXProt.pm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) 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 -- 2.43.0