From dc81106fc15eea3ab76a00beb0e4f9484259dfbc Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Mon, 28 Feb 2005 14:28:00 +0000
Subject: Make regexps a bit more lenient.

---
 perl-install/install_steps_gtk.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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');
-- 
cgit v1.2.1