kill unused variables

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 }