diff options
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 36842d559..6c9fe0e66 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -641,7 +641,7 @@ sub deselectFoundMedia { my $i = 0; my $totalsize = 0; foreach (@$hdlists) { - (my $cd) = $_->[3] =~ /\bCD ?(\d+)\b/; + (my $cd) = $_->[3] =~ /\bCD ?(\d+)\b/i; if (!$cd || !@{$cdlist{$cd} || []}) { push @hdlist2, $_; $corresp[$i] = [ $i ]; @@ -659,7 +659,7 @@ sub deselectFoundMedia { } my @selection = (1) x @hdlist2; my $copy_rpms_on_disk = 0; - my $ask_copy_rpms_on_disk = $o->{method} !~ /-iso$/; + my $ask_copy_rpms_on_disk = $o->{method} !~ /iso/i; #- check available size for copying rpms from infos in hdlists file if ($ask_copy_rpms_on_disk && $totalsize >= 0) { my (undef, $availvar) = install_any::getAvailableSpace_mounted('/var'); |