summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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 ];