From c0ead9f815d7692b2b755327fe0898a8aaecbde1 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 10 Oct 2013 12:33:31 +0200
Subject: (installUpdates) log when user reject applying updates

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

(limited to 'perl-install')

diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 1bfea5cd0..ee5eda054 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -774,7 +774,10 @@ connection.
 
 Do you want to install the updates?")),
 			   interactive_help_id => 'installUpdates',
-					       }, 1) or return;
+					       }, 1) or do {
+	log::l("installUpdates: skipping since user say no to updates");
+	return;
+    };
 
     #- bring all interface up for installing updates packages.
     install::interactive::upNetwork($o);
-- 
cgit v1.2.1