diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-01-04 18:13:25 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-01-04 18:13:25 +0000 |
| commit | 82aae0f23a1d73d8d8e98416ea1799e2321b6a4e (patch) | |
| tree | 39575933c1c0a8ba825df2c9716a4799ef15d2ba /perl-install | |
| parent | bf373a1565baddc2419db2a2febe32ff63fac3c5 (diff) | |
| download | drakx-backup-do-not-use-82aae0f23a1d73d8d8e98416ea1799e2321b6a4e.tar drakx-backup-do-not-use-82aae0f23a1d73d8d8e98416ea1799e2321b6a4e.tar.gz drakx-backup-do-not-use-82aae0f23a1d73d8d8e98416ea1799e2321b6a4e.tar.bz2 drakx-backup-do-not-use-82aae0f23a1d73d8d8e98416ea1799e2321b6a4e.tar.xz drakx-backup-do-not-use-82aae0f23a1d73d8d8e98416ea1799e2321b6a4e.zip | |
removed test code.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/crypto.pm | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm index 89ff9474d..749538bab 100644 --- a/perl-install/crypto.pm +++ b/perl-install/crypto.pm @@ -85,18 +85,15 @@ sub getPackages { $crypto::host = $mirror; #- extract hdlist of crypto, then depslist. - 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. + 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; } sub get { |