From 4e1f5f18db58f641c2b7019ff0817b65ddbb35a5 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 2 Sep 2004 06:24:59 +0000
Subject: If a supplementary media is incorrect, continue asking

---
 perl-install/pkgs.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index b86df87a3..51b3e241d 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -599,7 +599,8 @@ sub read_rpmsrate {
 sub readCompssUsers {
     my ($meta_class, $file) = @_;
 
-    my $f = $meta_class && install_any::getFile("$file.$meta_class") || install_any::getFile($file) or die "can't find $file";
+    my $f = $meta_class && install_any::getFile("$file.$meta_class") || install_any::getFile($file)
+	or do { log::l("can't find $file: $!"); return (undef, undef) };
     my ($compssUsers, $gtk_display_compssUsers) = eval join('', <$f>);
     if ($@) {
 	log::l("ERROR: bad $file: $@");
-- 
cgit v1.2.1