From d7fc84e480c842574e847635ee4208d449dfdf4f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 7 Apr 2009 17:57:01 +0000
Subject: perl_checker cleanups

---
 perl-install/install/media.pm | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'perl-install/install/media.pm')

diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm
index 0de5f9eef..7818c48e3 100644
--- a/perl-install/install/media.pm
+++ b/perl-install/install/media.pm
@@ -496,7 +496,6 @@ sub get_media {
     use Data::Dumper;
 
     my ($suppl_CDs, $copy_rpms_on_disk, $phys_m);
-    my @names = map { $_->{name} } @{$packages->{media}};
     foreach (@$media) {
 	if ($_->{type} eq 'media_cfg') {
 	    $phys_m = url2mounted_phys_medium($o, $_->{url}, 'media_info');
@@ -527,8 +526,6 @@ sub adjust_paths_in_urpmi_cfg {
     my ($urpm) = Clone::clone($packages);
     foreach my $medium (@{$urpm->{media}}) {
         my $phys_m = $medium->{phys_medium};
-        my $dir = _get_medium_dir($phys_m);
-        my $old_url = $medium->{url};
         if ($phys_m->{method} eq 'cdrom') {
             $medium->{url} =~ s!^/tmp/image!cdrom://!; # main media
             $medium->{url} =~ s!^$phys_m->{real_mntpoint}/!cdrom://!; # supplementary medium
-- 
cgit v1.2.1