summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-04-07 17:57:01 +0000
committerThierry Vignaud <tv@mandriva.org>2009-04-07 17:57:01 +0000
commitd7fc84e480c842574e847635ee4208d449dfdf4f (patch)
tree79ff8e9a17042acd3da7f9958bb8f6fefadbcb7b /perl-install
parent86e74501de4065996bc7a390cb8d49eeb218e12b (diff)
downloaddrakx-d7fc84e480c842574e847635ee4208d449dfdf4f.tar
drakx-d7fc84e480c842574e847635ee4208d449dfdf4f.tar.gz
drakx-d7fc84e480c842574e847635ee4208d449dfdf4f.tar.bz2
drakx-d7fc84e480c842574e847635ee4208d449dfdf4f.tar.xz
drakx-d7fc84e480c842574e847635ee4208d449dfdf4f.zip
perl_checker cleanups
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/media.pm3
1 files changed, 0 insertions, 3 deletions
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