summaryrefslogtreecommitdiffstats
path: root/perl-install/install/media.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-02-24 15:32:14 +0000
committerThierry Vignaud <tv@mandriva.org>2009-02-24 15:32:14 +0000
commit53f4587bd74db4d164b3605a704ec8d01915b018 (patch)
tree96c40a8f80621300e12991716c6add11458aa5b7 /perl-install/install/media.pm
parentf136d142f8195d8cd5a750b43d552aa91f8ae1fc (diff)
downloaddrakx-backup-do-not-use-53f4587bd74db4d164b3605a704ec8d01915b018.tar
drakx-backup-do-not-use-53f4587bd74db4d164b3605a704ec8d01915b018.tar.gz
drakx-backup-do-not-use-53f4587bd74db4d164b3605a704ec8d01915b018.tar.bz2
drakx-backup-do-not-use-53f4587bd74db4d164b3605a704ec8d01915b018.tar.xz
drakx-backup-do-not-use-53f4587bd74db4d164b3605a704ec8d01915b018.zip
(_get_compsUsers_pl) split it out of get_media_cfg()
Diffstat (limited to 'perl-install/install/media.pm')
-rw-r--r--perl-install/install/media.pm9
1 files changed, 6 insertions, 3 deletions
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 {