Add versions to modules

8 files changed, 17 insertions, 4 deletions

diff --git a/urpm/args.pm b/urpm/args.pm
index 9b62d1d8..2a1be88f 100644
--- a/urpm/args.pm
+++ b/urpm/args.pm
@@ -7,6 +7,8 @@ use Getopt::Long;# 2.33;
 use urpm::download;
 use urpm::msg;
 
+(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+
 # The program that invokes us
 (my $tool = $0) =~ s!.*/!!;
 
diff --git a/urpm/cfg.pm b/urpm/cfg.pm
index 7cf5f62f..6e5f2809 100644
--- a/urpm/cfg.pm
+++ b/urpm/cfg.pm
@@ -5,6 +5,8 @@ use warnings;
 use urpm::util;
 use urpm::msg 'N';
 
+(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+
 =head1 NAME
 
 urpm::cfg - routines to handle the urpmi configuration files
diff --git a/urpm/download.pm b/urpm/download.pm
index 92c35945..d3fa62ea 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -5,6 +5,8 @@ use urpm::msg;
 use urpm::cfg;
 use Cwd;
 
+(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+
 #- proxy config file.
 our $PROXY_CFG = '/etc/urpmi/proxy.cfg';
 my $proxy_config;
diff --git a/urpm/ldap.pm b/urpm/ldap.pm
index 6a6f3c18..036a9db1 100644
--- a/urpm/ldap.pm
+++ b/urpm/ldap.pm
@@ -1,13 +1,13 @@
 package urpm::ldap;
 
-# $Id$
-
 use strict;
 use warnings;
 use urpm;
 use urpm::msg 'N';
 use Net::LDAP;
 
+(our $VERSION) = q$Id$ =~ /(\d+\.\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 162355bc..75b65a27 100644
--- a/urpm/msg.pm
+++ b/urpm/msg.pm
@@ -3,6 +3,9 @@ package urpm::msg;
 use strict;
 no warnings;
 use Exporter;
+
+(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+
 our @ISA = 'Exporter';
 our @EXPORT = qw(N log_it to_utf8 message_input message toMb from_utf8);
 
diff --git a/urpm/prompt.pm b/urpm/prompt.pm
index c4f50225..246ed818 100644
--- a/urpm/prompt.pm
+++ b/urpm/prompt.pm
@@ -2,6 +2,8 @@ package urpm::prompt;
 
 use strict;
 
+(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+
 sub new {
     my ($class, $title, $prompts, $defaults, $hidden) = @_;
     bless {
diff --git a/urpm/sys.pm b/urpm/sys.pm
index 4b6fb26e..8bf63127 100644
--- a/urpm/sys.pm
+++ b/urpm/sys.pm
@@ -1,9 +1,9 @@
 package urpm::sys;
 
-# $Id$
-
 use strict;
 
+(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+
 #- find used mount point from a pathname, use a optional mode to allow
 #- filtering according the next operation (mount or umount).
 sub find_mntpoints {
diff --git a/urpm/util.pm b/urpm/util.pm
index 79b7adab..51091a6b 100644
--- a/urpm/util.pm
+++ b/urpm/util.pm
@@ -10,6 +10,8 @@ our @EXPORT = qw(quotespace unquotespace
     difference2
 );
 
+(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
+
 #- quoting/unquoting a string that may be containing space chars.
 sub quotespace		 { my $x = $_[0] || ''; $x =~ s/(\s)/\\$1/g; $x }
 sub unquotespace	 { my $x = $_[0] || ''; $x =~ s/\\(\s)/$1/g; $x }