diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-28 14:28:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-28 14:28:00 +0000 |
| commit | dc81106fc15eea3ab76a00beb0e4f9484259dfbc (patch) | |
| tree | f87516f73206dec250580eed23a510bf12c8dc29 /perl-install/install_steps_gtk.pm | |
| parent | 07bc4771e80a1322c320be9488d642ca8a609342 (diff) | |
| download | drakx-dc81106fc15eea3ab76a00beb0e4f9484259dfbc.tar drakx-dc81106fc15eea3ab76a00beb0e4f9484259dfbc.tar.gz drakx-dc81106fc15eea3ab76a00beb0e4f9484259dfbc.tar.bz2 drakx-dc81106fc15eea3ab76a00beb0e4f9484259dfbc.tar.xz drakx-dc81106fc15eea3ab76a00beb0e4f9484259dfbc.zip | |
Make regexps a bit more lenient.
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -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'); |