summaryrefslogtreecommitdiffstats
path: root/perl-install/install/http.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-04-09 10:05:35 +0000
committerThierry Vignaud <tv@mandriva.org>2009-04-09 10:05:35 +0000
commitc7f4ce54151d794e7f67f2125e65709c35d0603b (patch)
treee32e98b0bd9a0cc700b331c872b2caab29b44743 /perl-install/install/http.pm
parent5f65c1de209ed5aa69c62aef6b0aeb3f89721ecb (diff)
downloaddrakx-c7f4ce54151d794e7f67f2125e65709c35d0603b.tar
drakx-c7f4ce54151d794e7f67f2125e65709c35d0603b.tar.gz
drakx-c7f4ce54151d794e7f67f2125e65709c35d0603b.tar.bz2
drakx-c7f4ce54151d794e7f67f2125e65709c35d0603b.tar.xz
drakx-c7f4ce54151d794e7f67f2125e65709c35d0603b.zip
(get_file_and_size) fix crashing when using urpmi early to download stuff for network installs
Diffstat (limited to 'perl-install/install/http.pm')
-rw-r--r--perl-install/install/http.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/install/http.pm b/perl-install/install/http.pm
index 91b27601c..72ff053fb 100644
--- a/perl-install/install/http.pm
+++ b/perl-install/install/http.pm
@@ -37,6 +37,11 @@ sub get_file_and_size {
defined $host or return undef;
my $urpm = $::o->{packages};
+ if (!$urpm) {
+ require install::pkgs;
+ $urpm = install::pkgs::empty_packages($o->{keep_unrequested_dependencies});
+ }
+
my $cachedir = $urpm->{cachedir} || '/root';
my $file = $url;
$file =~ s!.*/!$cachedir/!;