From 3a5b2dc01ae6e2d2e7deb1a6ea5bc242d4873dc4 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Fri, 11 Mar 2005 17:42:33 +0000 Subject: When removing duplicate physical media, take DVDs into account as well as CDs --- perl-install/install_steps_gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/install_steps_gtk.pm') 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 ]; -- cgit v1.2.1