summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index e1b2f4e2d..079005901 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -85,13 +85,19 @@ sub askChangeMedium($$) {
$allow;
}
-#- guess the CD number from a media description
+#- guess the CD number from a media description.
+#- XXX lots of heuristics here, must design this properly
sub getCDNumber {
my ($description) = @_;
(my $cd) = $description =~ /\b(?:CD|DVD) ?(\d+)\b/i;
+ if (!$cd) { #- test for single unnumbered DVD
+ $cd = 1 if $description =~ /\bDVD\b/i;
+ }
if (!$cd) { #- test for mini-ISO
$cd = 1 if $description =~ /\bmini.?cd\b/i;
}
+ #- don't mix suppl. cds with regular ones
+ if ($description =~ /suppl/i) { $cd += 100 }
$cd;
}