From b3968d3a68cd5c4314ac4267508e654cadaf0762 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 3 Nov 2006 13:52:09 +0000 Subject: remove unused variables --- urpm.pm | 3 --- 1 file changed, 3 deletions(-) (limited to 'urpm.pm') diff --git a/urpm.pm b/urpm.pm index 6c7327ed..8986a94f 100644 --- a/urpm.pm +++ b/urpm.pm @@ -821,7 +821,6 @@ sub add_distrib_media { #- at this point, we have found a media.cfg file, so parse it #- and create all necessary media according to it. my $medium = $options{initial_number} || 1; - my @media_list_toadd; foreach my $media ($distribconf->listmedia) { my $skip = 0; @@ -1413,7 +1412,6 @@ this could happen if you mounted manually the directory when creating the medium } else { #- check for a reconfig.urpmi file (if not already reconfigured) if (!$media_redone{$medium->{name}} && !$medium->{noreconfigure}) { - my $reconfig_urpmi_url = "$medium->{url}/reconfig.urpmi"; unlink(my $reconfig_urpmi = "$urpm->{cachedir}/partial/reconfig.urpmi"); eval { $urpm->{sync}( @@ -2873,7 +2871,6 @@ sub prepare_transaction { my ($urpm, $set, $list, $sources, $transaction_list, $transaction_sources) = @_; foreach my $id (@{$set->{upgrade}}) { - my $pkg = $urpm->{depslist}[$id]; foreach (0..$#$list) { exists $list->[$_]{$id} and $transaction_list->[$_]{$id} = $list->[$_]{$id}; } -- cgit v1.2.1