From 5e2cb78633952183bf805f1c2223475305d8db6b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 13 Nov 2013 13:01:23 +0100
Subject: log why updates were not applied

log a nice message (urpmi not found or no network) instead of a silent
missing feature
---
 perl-install/any.pm       | 11 +++++++++--
 perl-install/install/NEWS |  1 +
 2 files changed, 10 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 26ffacf4f..52dc46bb2 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -946,11 +946,18 @@ sub sessions_with_order() {
 sub urpmi_add_all_media {
     my ($in, $o_previous_release) = @_;
 
-    my $binary = find { whereis_binary($_, $::prefix) } if_(check_for_xserver(), 'gurpmi.addmedia'), 'urpmi.addmedia' or return;
+    my $binary = find { whereis_binary($_, $::prefix) } if_(check_for_xserver(), 'gurpmi.addmedia'), 'urpmi.addmedia';
+    if (!$binary) {
+	log::l("urpmi.addmedia not found!");
+	return;
+    }
     
     #- configure urpmi media if network is up
     require network::tools;
-    return if !network::tools::has_network_connection();
+    if (!network::tools::has_network_connection()) {
+	log::l("no network connexion!");
+	return;
+    }
     my $wait;
     my @options = ('--distrib', '--mirrorlist', '$MIRRORLIST');
     if ($binary eq 'urpmi.addmedia') {
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index e20cf3bf9..d137a7c75 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,5 +1,6 @@
 - debug image:
   o include enough python in order to generate a stack trace from within stage2
+- log why updates were not applied
 
 Version 15.73 - 12 November 2013
 
-- 
cgit v1.2.1