summaryrefslogtreecommitdiffstats
path: root/urpm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-09-08 08:30:04 +0000
committerThierry Vignaud <tv@mageia.org>2012-09-08 08:30:04 +0000
commit4c49f04ba3b17252677c6e5f905465957c97ef6e (patch)
treed1f7ca461995407148bf2447e2e2dacf55f1c8fd /urpm
parentd820746ef416b071f59d24e68120c4524a73c8fc (diff)
downloadurpmi-4c49f04ba3b17252677c6e5f905465957c97ef6e.tar
urpmi-4c49f04ba3b17252677c6e5f905465957c97ef6e.tar.gz
urpmi-4c49f04ba3b17252677c6e5f905465957c97ef6e.tar.bz2
urpmi-4c49f04ba3b17252677c6e5f905465957c97ef6e.tar.xz
urpmi-4c49f04ba3b17252677c6e5f905465957c97ef6e.zip
kill unused variables
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.pm2
-rw-r--r--urpm/msg.pm2
-rw-r--r--urpm/parallel_ka_run.pm1
-rw-r--r--urpm/parallel_ssh.pm2
-rw-r--r--urpm/prompt.pm2
-rw-r--r--urpm/sys.pm2
-rw-r--r--urpm/util.pm2
10 files changed, 0 insertions, 19 deletions
diff --git a/urpm/args.pm b/urpm/args.pm
index eade3974..a9311223 100644
--- a/urpm/args.pm
+++ b/urpm/args.pm
@@ -14,8 +14,6 @@ use Exporter;
our @ISA = 'Exporter';
our @EXPORT = '%options';
-(our $VERSION) = q($Revision: 271299 $) =~ /(\d+)/;
-
# The program that invokes us
(my $tool = $0) =~ s!.*/!!;
diff --git a/urpm/cfg.pm b/urpm/cfg.pm
index 9a5af003..2a2f1548 100644
--- a/urpm/cfg.pm
+++ b/urpm/cfg.pm
@@ -7,8 +7,6 @@ use warnings;
use urpm::util;
use urpm::msg 'N';
-(our $VERSION) = q($Revision: 271299 $) =~ /(\d+)/;
-
=head1 NAME
urpm::cfg - routines to handle the urpmi configuration files
diff --git a/urpm/download.pm b/urpm/download.pm
index 37100c9b..9e3a4882 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -17,8 +17,6 @@ our @EXPORT = qw(get_proxy
set_proxy_config dump_proxy_config
);
-(our $VERSION) = q($Revision: 271299 $) =~ /(\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 164e9fa1..5c5edbb3 100644
--- a/urpm/ldap.pm
+++ b/urpm/ldap.pm
@@ -9,8 +9,6 @@ use urpm::util;
use urpm::msg 'N';
use urpm::media;
-(our $VERSION) = q($Revision: 271299 $) =~ /(\d+)/;
-
our $LDAP_CONFIG_FILE = '/etc/ldap.conf';
my @per_media_opt = (@urpm::media::PER_MEDIA_OPT, qw(md5sum ftp-proxy http-proxy));
diff --git a/urpm/msg.pm b/urpm/msg.pm
index 84b32026..a29acf3f 100644
--- a/urpm/msg.pm
+++ b/urpm/msg.pm
@@ -13,8 +13,6 @@ BEGIN {
eval "use open ':locale'" if $encoding && $encoding ne 'ANSI_X3.4-1968';
}
-(our $VERSION) = q($Revision: 271299 $) =~ /(\d+)/;
-
our @ISA = 'Exporter';
our @EXPORT = qw(N N_ P translate bug_log message_input message_input_ toMb formatXiB sys_log);
diff --git a/urpm/parallel_ka_run.pm b/urpm/parallel_ka_run.pm
index 58e114d0..cd3925e0 100644
--- a/urpm/parallel_ka_run.pm
+++ b/urpm/parallel_ka_run.pm
@@ -12,7 +12,6 @@ use urpm::parallel;
our @ISA = 'urpm::parallel';
-(our $VERSION) = q($Revision: 271299 $) =~ /(\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 0e5b6d60..ad838fbf 100644
--- a/urpm/parallel_ssh.pm
+++ b/urpm/parallel_ssh.pm
@@ -12,8 +12,6 @@ use urpm::parallel;
our @ISA = 'urpm::parallel';
-(our $VERSION) = q($Revision: 271299 $) =~ /(\d+)/;
-
sub _localhost { $_[0] eq 'localhost' }
sub _ssh { &_localhost ? '' : "ssh $_[0] " }
sub _host { &_localhost ? '' : "$_[0]:" }
diff --git a/urpm/prompt.pm b/urpm/prompt.pm
index 6762f19f..320000f7 100644
--- a/urpm/prompt.pm
+++ b/urpm/prompt.pm
@@ -4,8 +4,6 @@ package urpm::prompt;
use strict;
-(our $VERSION) = q($Revision: 271299 $) =~ /(\d+)/;
-
sub new {
my ($class, $title, $prompts, $defaults, $hidden) = @_;
bless {
diff --git a/urpm/sys.pm b/urpm/sys.pm
index 64b807f1..c0ff9740 100644
--- a/urpm/sys.pm
+++ b/urpm/sys.pm
@@ -8,8 +8,6 @@ use urpm::util;
use urpm::msg;
use POSIX ();
-(our $VERSION) = q($Revision: 271299 $) =~ /(\d+)/;
-
=head1 NAME
diff --git a/urpm/util.pm b/urpm/util.pm
index 2df16fc2..d4aaa2ea 100644
--- a/urpm/util.pm
+++ b/urpm/util.pm
@@ -37,8 +37,6 @@ our @EXPORT = qw(add2hash_
wc_l
);
-(our $VERSION) = q($Revision: 271299 $) =~ /(\d+)/;
-
sub min { my $n = shift; $_ < $n and $n = $_ foreach @_; $n }
sub max { my $n = shift; $_ > $n and $n = $_ foreach @_; $n }