summaryrefslogtreecommitdiffstats
path: root/urpm
diff options
context:
space:
mode:
Diffstat (limited to 'urpm')
-rw-r--r--urpm/args.pm2
-rw-r--r--urpm/cfg.pm2
-rw-r--r--urpm/download.pm2
-rw-r--r--urpm/ldap.pm4
-rw-r--r--urpm/msg.pm3
-rw-r--r--urpm/prompt.pm2
-rw-r--r--urpm/sys.pm4
-rw-r--r--urpm/util.pm2
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 }