added mkver

[spider.git] / perl / Aranea.pm

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index fc77cc13122fe6f1a7f330c11992e5aedb1ac59f..bbe24bbd5194e7cd9c565cf9dfb5318564377601 100644 (file)
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -28,10 +28,8 @@ use Thingy;
 use RouteDB;
 
 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(@ISA $ntpflag $dupeage);