summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-09 07:34:09 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-09 07:34:09 +0000
commit33766cd209a63c201766ce7ab13e343eb69ebae2 (patch)
tree809c2ae526daddef6733557d19c56e9b87bd3657 /perl-install
parent9b02e3b7c7c039be2839bd4ba4a4b01591186dcc (diff)
downloaddrakx-33766cd209a63c201766ce7ab13e343eb69ebae2.tar
drakx-33766cd209a63c201766ce7ab13e343eb69ebae2.tar.gz
drakx-33766cd209a63c201766ce7ab13e343eb69ebae2.tar.bz2
drakx-33766cd209a63c201766ce7ab13e343eb69ebae2.tar.xz
drakx-33766cd209a63c201766ce7ab13e343eb69ebae2.zip
use new ISO images volume name (#10543)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 0290f423c..07ba0c1dc 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -93,7 +93,8 @@ sub look_for_ISO_images() {
my $get_iso_ids = sub {
my ($F) = @_;
my ($vol_id, $app_id) = c::get_iso_volume_ids(fileno $F);
- my ($cd_set) = $vol_id =~ /^(.*)-[0-9]+$/;
+ #- the ISO volume names must end in -Disc\d+
+ my ($cd_set) = $vol_id =~ /^(.*)-Disc\d+$/;
$cd_set && { cd_set => $cd_set, app_id => $app_id };
};