summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/install/media.pm2
2 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 380ab1c3a..75a370d09 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,4 @@
+- fix selecting packages on cdroms
- don't crash when creating a partition in LVM with the partition type
buttons (#38078)
diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm
index 590fce94c..c8a6bd51e 100644
--- a/perl-install/install/media.pm
+++ b/perl-install/install/media.pm
@@ -505,6 +505,8 @@ sub get_media {
if ($o->{stage2_phys_medium}{method} eq 'cdrom') {
my $arch = arch();
$uri .= "/" . ($arch =~ /i.86/ ? $MDK::Common::System::compat_arch{arch()} : arch());
+ # FIXME: investigate why _get_compsUsers_pl($phys_m, $_->{force_rpmsrate}) didn't worked:o
+ system('cp', "$uri/media/media_info/rpmsrate", "/tmp/rpmsrate");
system('cp', "$uri/media/media_info/compssUsers.pl", '/tmp/compssUsers.pl');
} else {
_get_compsUsers_pl($phys_m, $_->{force_rpmsrate});