From c03d18c0b61015602f86bb735b0412bb44289bc8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 23 Apr 2012 17:28:20 +0000
Subject: (hdlist_on_disk) enhance it

---
 perl-install/install/media.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/install/media.pm')

diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm
index 9548900c2..d821ab8e2 100644
--- a/perl-install/install/media.pm
+++ b/perl-install/install/media.pm
@@ -437,7 +437,9 @@ sub hdlist_on_disk {
     my ($m) = @_;
 
     #urpmidir() . "/hdlist.$m->{fakemedium}.cz";
-    join('/', $m->{url}, $m->{media_info_dir}, "hdlist.cz");
+    require urpm;
+    # FIXME: download hdlist if needed:
+    return urpm::is_local_medium($m) ? join('/', $m->{url}, $m->{media_info_dir}, "hdlist.cz") : '';
 }
 
 sub _allow_copy_rpms_on_disk {
-- 
cgit v1.2.1