summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-04-04 13:14:11 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-04-04 13:14:11 +0000
commit3cc1801d828dd2d3e5fb1b12e20c1b0566e85e4c (patch)
tree6d89341ccf84fd809d62a8a1b2d8c26a4005f27a /perl-install/install_steps_gtk.pm
parentc0ba252c1d8beba03389c857d799b4a53b1dac14 (diff)
downloaddrakx-3cc1801d828dd2d3e5fb1b12e20c1b0566e85e4c.tar
drakx-3cc1801d828dd2d3e5fb1b12e20c1b0566e85e4c.tar.gz
drakx-3cc1801d828dd2d3e5fb1b12e20c1b0566e85e4c.tar.bz2
drakx-3cc1801d828dd2d3e5fb1b12e20c1b0566e85e4c.tar.xz
drakx-3cc1801d828dd2d3e5fb1b12e20c1b0566e85e4c.zip
Introduce the new utility function getCDNumber()
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm5
1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 73fdf1280..8ef0d9bb7 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -642,10 +642,7 @@ sub deselectFoundMedia {
my $i = 0;
my $totalsize = 0;
foreach (@$hdlists) {
- (my $cd) = $_->[3] =~ /\b(?:CD|DVD) ?(\d+)\b/i;
- if (!$cd) { #- test for mini-ISO
- $cd = 1 if $_->[3] =~ /\bmini.?cd\b/i;
- }
+ my $cd = install_any::getCDNumber($_->[3]);
if (!$cd || !@{$cdlist{$cd} || []}) {
push @hdlist2, $_;
$corresp[$i] = [ $i ];