summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-03-02 13:59:18 +0000
committerThierry Vignaud <tv@mandriva.org>2009-03-02 13:59:18 +0000
commitfc2ab17ea71913f7cda6fa11da9a0c476ecb9610 (patch)
tree71c14d5fbc8b40f8088a1c11b0a3c6b0f07192aa /perl-install
parent608feed8925be3a467c384f974c6f0c39f0406d8 (diff)
downloaddrakx-fc2ab17ea71913f7cda6fa11da9a0c476ecb9610.tar
drakx-fc2ab17ea71913f7cda6fa11da9a0c476ecb9610.tar.gz
drakx-fc2ab17ea71913f7cda6fa11da9a0c476ecb9610.tar.bz2
drakx-fc2ab17ea71913f7cda6fa11da9a0c476ecb9610.tar.xz
drakx-fc2ab17ea71913f7cda6fa11da9a0c476ecb9610.zip
(_pkg2media) kill it, just use URPM::pkg2media()
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/media.pm13
1 files changed, 1 insertions, 12 deletions
diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm
index 9dc74a6c2..3cd65aa9c 100644
--- a/perl-install/install/media.pm
+++ b/perl-install/install/media.pm
@@ -58,20 +58,9 @@ sub _phys_media {
uniq(map { $_->{phys_medium} } @{$packages->{media}});
}
-sub _pkg2media {
- my ($media, $p) = @_;
- $p or internal_error("invalid package");
-
- find {
- $_->{selected} &&
- $p->id >= $_->{start} && $p->id <= $_->{end};
- } @$media;
-}
-
sub packageMedium {
my ($packages, $p) = @_;
-
- _pkg2media($packages->{media}, $p) || {};
+ URPM::pkg2media($packages->{media}, $p) || {};
}
sub packagesOfMedium {
my ($packages, $medium) = @_;