summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-11 17:42:33 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-11 17:42:33 +0000
commit3a5b2dc01ae6e2d2e7deb1a6ea5bc242d4873dc4 (patch)
treea3dbb01ba51f51e1f308d3cf9450e9a483ab0e30 /perl-install
parent87206f3ef535d1d7bbdec0ab2455ea05073156c2 (diff)
downloaddrakx-backup-do-not-use-3a5b2dc01ae6e2d2e7deb1a6ea5bc242d4873dc4.tar
drakx-backup-do-not-use-3a5b2dc01ae6e2d2e7deb1a6ea5bc242d4873dc4.tar.gz
drakx-backup-do-not-use-3a5b2dc01ae6e2d2e7deb1a6ea5bc242d4873dc4.tar.bz2
drakx-backup-do-not-use-3a5b2dc01ae6e2d2e7deb1a6ea5bc242d4873dc4.tar.xz
drakx-backup-do-not-use-3a5b2dc01ae6e2d2e7deb1a6ea5bc242d4873dc4.zip
When removing duplicate physical media, take DVDs into account as well as CDs
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 5df11bed2..ecaa846ae 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/i;
+ (my $cd) = $_->[3] =~ /\b(?:CD|DVD) ?(\d+)\b/i;
if (!$cd || !@{$cdlist{$cd} || []}) {
push @hdlist2, $_;
$corresp[$i] = [ $i ];