diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/install/media.pm | 2 |
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}); |