summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-09-25 12:00:47 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-09-25 12:00:47 +0000
commitd1d93963ddf85bfc62ef74498db8ddaf40b19e75 (patch)
treedd6d53191ec7447659d2c2a3faa37800a7ccc258 /perl-install
parentc072726285dbf4a636fef8667067fd0e4a2ecde5 (diff)
downloaddrakx-d1d93963ddf85bfc62ef74498db8ddaf40b19e75.tar
drakx-d1d93963ddf85bfc62ef74498db8ddaf40b19e75.tar.gz
drakx-d1d93963ddf85bfc62ef74498db8ddaf40b19e75.tar.bz2
drakx-d1d93963ddf85bfc62ef74498db8ddaf40b19e75.tar.xz
drakx-d1d93963ddf85bfc62ef74498db8ddaf40b19e75.zip
nicer error message when giving a wrong media_cfg_isos url
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/media.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm
index 9dbfaabf9..dcbb107f2 100644
--- a/perl-install/install/media.pm
+++ b/perl-install/install/media.pm
@@ -528,7 +528,7 @@ sub get_media {
my $phys_m = url2mounted_phys_medium($o, $_->{url});
get_standalone_medium($o, $phys_m, $packages, { name => $_->{id} =~ /media=(.*)/ && $1 });
} elsif ($_->{type} eq 'media_cfg_isos') {
- my ($dir_url, $iso, $rel_path) = $_->{url} =~ m!(.*)/(.*\.iso):(/.*)!;
+ my ($dir_url, $iso, $rel_path) = $_->{url} =~ m!(.*)/(.*\.iso):(/.*)! or die "bad media_cfg_isos url $_->{url}";
my $dir_medium = url2mounted_phys_medium($o, $dir_url);
$dir_medium->{options} =~ s/\bnoauto\b,?//;
my $phys_m = iso_phys_media($dir_medium, $iso, $rel_path);