diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-16 05:12:03 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-16 05:12:03 +0000 |
| commit | 5cc1f42d9cd129bd678fe5bbc97e0c9877d8f1d3 (patch) | |
| tree | b167c87569c338b610cc1649a3ec3315c02663f0 /perl-install/install_any.pm | |
| parent | 8a8e645f0e951b0eed1c7dc320f5761df2ab0c76 (diff) | |
| download | drakx-backup-do-not-use-5cc1f42d9cd129bd678fe5bbc97e0c9877d8f1d3.tar drakx-backup-do-not-use-5cc1f42d9cd129bd678fe5bbc97e0c9877d8f1d3.tar.gz drakx-backup-do-not-use-5cc1f42d9cd129bd678fe5bbc97e0c9877d8f1d3.tar.bz2 drakx-backup-do-not-use-5cc1f42d9cd129bd678fe5bbc97e0c9877d8f1d3.tar.xz drakx-backup-do-not-use-5cc1f42d9cd129bd678fe5bbc97e0c9877d8f1d3.zip | |
Better retry on error handling for supplementary media
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 7fc1559b1..022db2e54 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -504,11 +504,11 @@ sub selectSupplMedia { my $url; local $global_ftp_prefix; if ($suppl_method eq 'ftp') { #- mirrors are ftp only (currently) - $url = $o->askSupplMirror(N("URL of the mirror?")) or return ''; + $url = $o->askSupplMirror(N("URL of the mirror?")) or return 'error'; $url =~ m!^ftp://(?:(.*?)(?::(.*?))?@)?([^/]+)/(.*)! and $global_ftp_prefix = [ $3, $4, $1, $2 ]; #- for getFile } else { - $url = $o->ask_from_entry('', N("URL of the mirror?")) or return ''; + $url = $o->ask_from_entry('', N("URL of the mirror?")) or return 'error'; } useMedium($medium_name); require "$suppl_method.pm"; #- require http or ftp @@ -554,6 +554,7 @@ sub selectSupplMedia { setup_suppl_medium($supplmedium, $url, $suppl_method); } else { log::l("no suppl hdlist"); + $suppl_method = 'error'; } } } else { |