From 23e13f4748fdb78c859e6f528619326807c36175 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 6 Apr 2009 15:57:14 +0000 Subject: kill now unused _get_media_cfg_options() --- perl-install/install/media.pm | 17 ----------------- 1 file changed, 17 deletions(-) (limited to 'perl-install/install') diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm index 7183ef11f..3ab8af56b 100644 --- a/perl-install/install/media.pm +++ b/perl-install/install/media.pm @@ -621,23 +621,6 @@ sub _url2phys_medium { } } -# shrinked down get_media_cfg() in order to keep options that urpmi discards: -sub _get_media_cfg_options { - my ($o, $phys_medium) = @_; - - my ($distribconf); - if (getAndSaveFile_($phys_medium, 'media_info/media.cfg', '/tmp/media.cfg')) { - ($distribconf) = _parse_media_cfg('/tmp/media.cfg', $phys_medium); - } else { - die "media.cfg not found"; - } - - my $suppl_CDs = exists $o->{supplmedia} ? $o->{supplmedia} : $distribconf->{suppl} || 0; - - $suppl_CDs, $o->{copy_rpms_on_disk}; -} - - sub get_media_cfg { my ($o, $phys_medium, $packages, $selected_names, $force_rpmsrate) = @_; -- cgit v1.2.1