From 63667f14a5c999dd96b6c868a114502dc8970a14 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 1 Aug 2011 18:44:14 +0000
Subject: (choosePackages) clear the mirror cache before upgrading (#1557)

---
 perl-install/install/NEWS     | 1 +
 perl-install/install/steps.pm | 3 +++
 2 files changed, 4 insertions(+)

(limited to 'perl-install/install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 1ca89a2c2..2f369c55c 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,4 @@
+- clear the mirror cache before upgrading (#1557)
 - fix bootloader entries names
 - detect (at least some (eg: Compaq USB numpad) (#1099)
 - detect machines needing cpufreq
diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm
index ca9281822..86421be43 100644
--- a/perl-install/install/steps.pm
+++ b/perl-install/install/steps.pm
@@ -258,6 +258,9 @@ sub selectSupplMedia { '' }
 sub choosePackages {
     my ($o, $o_compssListLevel) = @_;
 
+    #- clear the mirror cache before upgrading:
+    rm_rf("$::prefix/var/cache/urpmi/mirrors.cache");
+ 
     #- now for upgrade, package that must be upgraded are
     #- selected first, after is used the same scheme as install.
 
-- 
cgit v1.2.1