diff options
| -rw-r--r-- | gurpmi.pm | 3 | ||||
| -rw-r--r-- | urpm/args.pm | 4 | ||||
| -rw-r--r-- | urpm/cfg.pm | 4 | ||||
| -rw-r--r-- | urpm/download.pm | 4 | ||||
| -rw-r--r-- | urpm/ldap.pm | 4 | ||||
| -rw-r--r-- | urpm/msg.pm | 4 | ||||
| -rw-r--r-- | urpm/parallel_ka_run.pm | 4 | ||||
| -rw-r--r-- | urpm/parallel_ssh.pm | 4 | ||||
| -rw-r--r-- | urpm/prompt.pm | 4 | ||||
| -rw-r--r-- | urpm/sys.pm | 4 | ||||
| -rw-r--r-- | urpm/util.pm | 4 |
11 files changed, 32 insertions, 11 deletions
@@ -2,6 +2,7 @@ package gurpmi; #- Copyright (C) 2005 MandrakeSoft SA #- Copyright (C) 2005, 2006 Mandriva SA +#- $Id$ #- This is needed because text printed by Gtk2 will always be encoded #- in UTF-8; we first check if LC_ALL is defined, because if it is, @@ -22,7 +23,7 @@ use strict; use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(fatal but quit add_button_box new_label N); -(our $VERSION) = q$Id$ =~ /(\d+\.\d+)/; +our $VERSION = $urpm::VERSION; sub usage () { print <<USAGE; 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 } |