diff options
| -rw-r--r-- | urpm/args.pm | 2 | ||||
| -rw-r--r-- | urpm/cfg.pm | 2 | ||||
| -rw-r--r-- | urpm/download.pm | 2 | ||||
| -rw-r--r-- | urpm/ldap.pm | 4 | ||||
| -rw-r--r-- | urpm/msg.pm | 3 | ||||
| -rw-r--r-- | urpm/prompt.pm | 2 | ||||
| -rw-r--r-- | urpm/sys.pm | 4 | ||||
| -rw-r--r-- | urpm/util.pm | 2 |
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 } |