From 883e070b411abc63e7ab89efe88cbc51e320c139 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 4 Jan 2002 17:34:35 +0000 Subject: allow to use same identifier for security medium (1u). re-install urpmi. allow some error to be catched. --- perl-install/crypto.pm | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) (limited to 'perl-install/crypto.pm') diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm index cb6517536..89ff9474d 100644 --- a/perl-install/crypto.pm +++ b/perl-install/crypto.pm @@ -85,16 +85,18 @@ sub getPackages { $crypto::host = $mirror; #- extract hdlist of crypto, then depslist. - require pkgs; - my $update_medium = pkgs::psUsingHdlist($prefix, 'ftp', $packages, "hdlist-updates.cz", - 1+scalar(keys %{$packages->{mediums}}), "RPMS", - #"Updates for Mandrake Linux $::VERSION", 1, getFile("base/hdlist.cz", $mirror)) and - "Updates for Mandrake Linux 8.1", 1, getFile("base/hdlist.cz", $mirror)) and - log::l("read updates hdlist"); - #- keep in mind where is the URL prefix used according to mirror (for install_any::install_urpmi). - $update_medium->{prefix} = dir($mirror); - - return $update_medium; + eval { + require pkgs; + my $update_medium = pkgs::psUsingHdlist($prefix, 'ftp', $packages, "hdlist-updates.cz", "1u", "RPMS", + #"Updates for Mandrake Linux $::VERSION", 1, getFile("base/hdlist.cz", $mirror)) and + "Updates for Mandrake Linux 8.1", 1, getFile("base/hdlist.cz", $mirror)) and + log::l("read updates hdlist"); + #- keep in mind where is the URL prefix used according to mirror (for install_any::install_urpmi). + $update_medium->{prefix} = dir($mirror); + + return $update_medium; + }; + return; #- an exception occurred, so ignore it. } sub get { -- cgit v1.2.1