summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-28 14:28:00 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-28 14:28:00 +0000
commitdc81106fc15eea3ab76a00beb0e4f9484259dfbc (patch)
treef87516f73206dec250580eed23a510bf12c8dc29 /perl-install
parent07bc4771e80a1322c320be9488d642ca8a609342 (diff)
downloaddrakx-backup-do-not-use-dc81106fc15eea3ab76a00beb0e4f9484259dfbc.tar
drakx-backup-do-not-use-dc81106fc15eea3ab76a00beb0e4f9484259dfbc.tar.gz
drakx-backup-do-not-use-dc81106fc15eea3ab76a00beb0e4f9484259dfbc.tar.bz2
drakx-backup-do-not-use-dc81106fc15eea3ab76a00beb0e4f9484259dfbc.tar.xz
drakx-backup-do-not-use-dc81106fc15eea3ab76a00beb0e4f9484259dfbc.zip
Make regexps a bit more lenient.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm4
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');