From fc2ab17ea71913f7cda6fa11da9a0c476ecb9610 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 2 Mar 2009 13:59:18 +0000
Subject: (_pkg2media) kill it, just use URPM::pkg2media()

---
 perl-install/install/media.pm | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

(limited to 'perl-install')

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) = @_;
-- 
cgit v1.2.1