summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-01-04 18:13:25 +0000
committerFrancois Pons <fpons@mandriva.com>2002-01-04 18:13:25 +0000
commit82aae0f23a1d73d8d8e98416ea1799e2321b6a4e (patch)
tree39575933c1c0a8ba825df2c9716a4799ef15d2ba /perl-install
parentbf373a1565baddc2419db2a2febe32ff63fac3c5 (diff)
downloaddrakx-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.pm21
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 {