From 53f4587bd74db4d164b3605a704ec8d01915b018 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 24 Feb 2009 15:32:14 +0000
Subject: (_get_compsUsers_pl) split it out of get_media_cfg()

---
 perl-install/install/media.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm
index aa0b1cd23..a319db962 100644
--- a/perl-install/install/media.pm
+++ b/perl-install/install/media.pm
@@ -628,7 +628,13 @@ sub get_media_cfg {
 
     log::l("get_media_cfg read " . int(@{$packages->{depslist}}) . " headers");
 
+    _get_compsUsers_pl($phys_medium, $force_rpmsrate);
 
+    $suppl_CDs, $o->{copy_rpms_on_disk};
+}
+
+sub _get_compsUsers_pl {
+    my ($phys_medium, $force_rpmsrate) = @_;
     #- copy latest compssUsers.pl and rpmsrate somewhere locally
     if ($force_rpmsrate || ! -e '/tmp/rpmsrate') {
 	getAndSaveFile_($phys_medium, "media_info/rpmsrate", "/tmp/rpmsrate");
@@ -636,9 +642,6 @@ sub get_media_cfg {
     if ($force_rpmsrate || ! -e '/tmp/compssUsers.pl') {
 	getAndSaveFile_($phys_medium, "media_info/compssUsers.pl", "/tmp/compssUsers.pl");
     }
-
-
-    $suppl_CDs, $o->{copy_rpms_on_disk};
 }
 
 sub get_standalone_medium {
-- 
cgit v1.2.1