summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-02 06:24:59 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-02 06:24:59 +0000
commit4e1f5f18db58f641c2b7019ff0817b65ddbb35a5 (patch)
treee8fc47270114120cc0467eb0c9fbac0c41e38b58 /perl-install
parentff224f1d77c69c6661f32127e59d53211c5074d3 (diff)
downloaddrakx-backup-do-not-use-4e1f5f18db58f641c2b7019ff0817b65ddbb35a5.tar
drakx-backup-do-not-use-4e1f5f18db58f641c2b7019ff0817b65ddbb35a5.tar.gz
drakx-backup-do-not-use-4e1f5f18db58f641c2b7019ff0817b65ddbb35a5.tar.bz2
drakx-backup-do-not-use-4e1f5f18db58f641c2b7019ff0817b65ddbb35a5.tar.xz
drakx-backup-do-not-use-4e1f5f18db58f641c2b7019ff0817b65ddbb35a5.zip
If a supplementary media is incorrect, continue asking
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm2
-rw-r--r--perl-install/pkgs.pm3
2 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index af60fd099..b2654aeae 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -479,7 +479,7 @@ sub selectSupplMedia {
log::l($@) if $@;
$o->ask_warn('', N("Can't find hdlist file on this mirror"));
useMedium($prev_asked_medium);
- return '';
+ return 'error';
}
my $supplmedium = pkgs::psUsingHdlist(
$o->{prefix},
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: $@");