From d9cff2800af0b7cde4a7e94cbc97be58fe164b3c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 8 Apr 2009 11:54:18 +0000
Subject: (install::media::configure_media) extract it out of
 install::any::SetPackages (needed for next commit)

---
 perl-install/install/media.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'perl-install/install/media.pm')

diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm
index 54ae9001b..082bb4457 100644
--- a/perl-install/install/media.pm
+++ b/perl-install/install/media.pm
@@ -491,6 +491,13 @@ sub select_only_some_media {
     }
 }
 
+sub configure_media {
+    my ($packages) = @_;
+    urpm::media::update_media($packages, distrib => 1, callback => \&urpm::download::sync_logger) or
+        log::l('updating media failed');
+    urpm::media::configure($packages);
+}
+
 sub get_media {
     my ($o, $media, $packages) = @_;
     use Data::Dumper;
-- 
cgit v1.2.1