Use revision number as version numbers for internal modules.

For gurpmi.pm, use the same version number as urpm.

10 files changed, 30 insertions, 10 deletions

diff --git a/urpm/args.pm b/urpm/args.pm
index 9e5ee075..7118635e 100644
--- a/urpm/args.pm
+++ b/urpm/args.pm
@@ -1,5 +1,7 @@
 package urpm::args;
 
+# $Id$
+
 use strict;
 use warnings;
 no warnings 'once';
@@ -7,7 +9,7 @@ use Getopt::Long;# 2.33;
 use urpm::download;
 use urpm::msg;
 
-(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+(our $VERSION) = q$Revision$ =~ /(\d+)/;
 
 # The program that invokes us
 (my $tool = $0) =~ s!.*/!!;
diff --git a/urpm/cfg.pm b/urpm/cfg.pm
index 511ad5ee..1493abb5 100644
--- a/urpm/cfg.pm
+++ b/urpm/cfg.pm
@@ -1,11 +1,13 @@
 package urpm::cfg;
 
+# $Id$
+
 use strict;
 use warnings;
 use urpm::util;
 use urpm::msg 'N';
 
-(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+(our $VERSION) = q$Revision$ =~ /(\d+)/;
 
 =head1 NAME
 
diff --git a/urpm/download.pm b/urpm/download.pm
index ace58c44..bea3a3c3 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -1,11 +1,13 @@
 package urpm::download;
 
+# $Id$
+
 use strict;
 use urpm::msg;
 use urpm::cfg;
 use Cwd;
 
-(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+(our $VERSION) = q$Revision$ =~ /(\d+)/;
 
 #- proxy config file.
 our $PROXY_CFG = '/etc/urpmi/proxy.cfg';
diff --git a/urpm/ldap.pm b/urpm/ldap.pm
index 4f2a645e..34a387d3 100644
--- a/urpm/ldap.pm
+++ b/urpm/ldap.pm
@@ -1,12 +1,14 @@
 package urpm::ldap;
 
+# $Id$
+
 use strict;
 use warnings;
 use urpm;
 use urpm::msg 'N';
 use Net::LDAP;
 
-(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+(our $VERSION) = q$Revision$ =~ /(\d+)/;
 
 our $LDAP_CONFIG_FILE = '/etc/ldap.conf';
 my @per_media_opt = (@urpm::PER_MEDIA_OPT, qw(ftp-proxy http-proxy));
diff --git a/urpm/msg.pm b/urpm/msg.pm
index c99fabf3..e3986abe 100644
--- a/urpm/msg.pm
+++ b/urpm/msg.pm
@@ -1,10 +1,12 @@
 package urpm::msg;
 
+# $Id$
+
 use strict;
 no warnings;
 use Exporter;
 
-(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+(our $VERSION) = q$Revision$ =~ /(\d+)/;
 
 our @ISA = 'Exporter';
 our @EXPORT = qw(N bug_log to_utf8 message_input toMb from_utf8 sys_log);
diff --git a/urpm/parallel_ka_run.pm b/urpm/parallel_ka_run.pm
index cb4f2d6c..d9beea4c 100644
--- a/urpm/parallel_ka_run.pm
+++ b/urpm/parallel_ka_run.pm
@@ -1,11 +1,13 @@
 package urpm::parallel_ka_run;
 
+# $Id$
+
 #- Copyright (C) 2002, 2003, 2004, 2005 MandrakeSoft SA
 #- Copyright (C) 2005 Mandriva SA
 
 use strict;
 
-(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+(our $VERSION) = q$Revision$ =~ /(\d+)/;
 our $mput_command = $ENV{URPMI_MPUT_COMMAND};
 our $rshp_command = $ENV{URPMI_RSHP_COMMAND};
 
diff --git a/urpm/parallel_ssh.pm b/urpm/parallel_ssh.pm
index 1ed4406a..4e15e787 100644
--- a/urpm/parallel_ssh.pm
+++ b/urpm/parallel_ssh.pm
@@ -1,12 +1,14 @@
 package urpm::parallel_ssh;
 
+# $Id$
+
 #- Copyright (C) 2002, 2003, 2004, 2005 MandrakeSoft SA
 #- Copyright (C) 2005 Mandriva SA
 
 use strict;
 use Time::HiRes qw(gettimeofday);
 
-(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+(our $VERSION) = q$Revision$ =~ /(\d+)/;
 
 sub _localhost { $_[0] eq 'localhost' }
 sub _nolock    { &_localhost ? '--nolock ' : '' }
diff --git a/urpm/prompt.pm b/urpm/prompt.pm
index 7ed02a06..6d7147d0 100644
--- a/urpm/prompt.pm
+++ b/urpm/prompt.pm
@@ -1,8 +1,10 @@
 package urpm::prompt;
 
+# $Id$
+
 use strict;
 
-(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+(our $VERSION) = q$Revision$ =~ /(\d+)/;
 
 sub new {
     my ($class, $title, $prompts, $defaults, $hidden) = @_;
diff --git a/urpm/sys.pm b/urpm/sys.pm
index 8bf63127..dccd05b8 100644
--- a/urpm/sys.pm
+++ b/urpm/sys.pm
@@ -1,8 +1,10 @@
 package urpm::sys;
 
+# $Id$
+
 use strict;
 
-(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+(our $VERSION) = q$Revision$ =~ /(\d+)/;
 
 #- find used mount point from a pathname, use a optional mode to allow
 #- filtering according the next operation (mount or umount).
diff --git a/urpm/util.pm b/urpm/util.pm
index dfd133f8..d112005a 100644
--- a/urpm/util.pm
+++ b/urpm/util.pm
@@ -1,5 +1,7 @@
 package urpm::util;
 
+# $Id$
+
 use strict;
 use Exporter;
 our @ISA = 'Exporter';
@@ -10,7 +12,7 @@ our @EXPORT = qw(quotespace unquotespace
     difference2
 );
 
-(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+(our $VERSION) = q$Revision$ =~ /(\d+)/;
 
 #- quoting/unquoting a string that may be containing space chars.
 sub quotespace		 { my $x = $_[0] || ''; $x =~ s/(\s)/\\$1/g; $x }