diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2009-03-02 13:59:18 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2009-03-02 13:59:18 +0000 |
| commit | fc2ab17ea71913f7cda6fa11da9a0c476ecb9610 (patch) | |
| tree | 71c14d5fbc8b40f8088a1c11b0a3c6b0f07192aa /perl-install/install | |
| parent | 608feed8925be3a467c384f974c6f0c39f0406d8 (diff) | |
| download | drakx-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/install')
| -rw-r--r-- | perl-install/install/media.pm | 13 |
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) = @_; |