summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-03-24 18:38:36 +0000
committerOlivier Blin <oblin@mandriva.org>2005-03-24 18:38:36 +0000
commitd9ab670cae8d51242f654e1b5651f628264420ce (patch)
tree520a35e78cfe685b596fdd9d26d058f4b64a3594 /perl-install/install_any.pm
parent240f089bda276eb079befdfd9c02cf8724bbc4cf (diff)
downloaddrakx-d9ab670cae8d51242f654e1b5651f628264420ce.tar
drakx-d9ab670cae8d51242f654e1b5651f628264420ce.tar.gz
drakx-d9ab670cae8d51242f654e1b5651f628264420ce.tar.bz2
drakx-d9ab670cae8d51242f654e1b5651f628264420ce.tar.xz
drakx-d9ab670cae8d51242f654e1b5651f628264420ce.zip
nasty warly uses different volume IDs for mini CDs
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 690d5b7bc..211a340e6 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -103,7 +103,7 @@ sub look_for_ISO_images() {
my ($F) = @_;
my ($vol_id, $app_id) = c::get_iso_volume_ids(fileno $F);
#- the ISO volume names must end in -Disc\d+
- my ($cd_set) = $vol_id =~ /^(.*)-Disc\d+$/;
+ my ($cd_set) = $vol_id =~ /^(.*)-(?:disc\d*|extra)$/i;
$cd_set && { cd_set => $cd_set, app_id => $app_id };
};