diff options
author | Thierry Vignaud <tv@mandriva.org> | 2009-02-24 15:32:14 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2009-02-24 15:32:14 +0000 |
commit | 53f4587bd74db4d164b3605a704ec8d01915b018 (patch) | |
tree | 96c40a8f80621300e12991716c6add11458aa5b7 /perl-install | |
parent | f136d142f8195d8cd5a750b43d552aa91f8ae1fc (diff) | |
download | drakx-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')
-rw-r--r-- | perl-install/install/media.pm | 9 |
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 { |