From c7f4ce54151d794e7f67f2125e65709c35d0603b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 9 Apr 2009 10:05:35 +0000
Subject: (get_file_and_size) fix crashing when using urpmi early to download
 stuff for network installs

---
 perl-install/install/NEWS    | 3 +++
 perl-install/install/http.pm | 5 +++++
 2 files changed, 8 insertions(+)

(limited to 'perl-install/install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index bdf27b88c..05864fc8f 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- media management:
+  o fix crashing when using urpmi early to download stuff for network installs
+
 Version 12.26.1 - 08 April 2009
 
 - media management:
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/!;
-- 
cgit v1.2.1