From d1d93963ddf85bfc62ef74498db8ddaf40b19e75 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 25 Sep 2007 12:00:47 +0000
Subject: nicer error message when giving a wrong media_cfg_isos url

---
 perl-install/install/media.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
cgit v1.2.1