From 70da5f76fd0375a4405252660319eef5d434ae35 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 14 Dec 2012 14:05:08 +0000
Subject: (real_main) time steps in logs

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

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 6c0f234e0..c28c7e7fe 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,4 @@
+- time steps in logs
 - media step:
   o show which media are disabled when offering to pick supplementary ones
 
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 0a763358b..c5cef30e2 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -698,10 +698,12 @@ sub real_main() {
     MAIN: for ($o->{step} = $o->{steps}{first};; $o->{step} = getNextStep($o)) {
 	$o->{steps}{$o->{step}}{entered}++;
 	$o->enteringStep($o->{step});
+	my $time = time();
 	eval {
 	    &{$install::install2::{$o->{step}}}($o->{steps}{$o->{step}}{auto});
 	};
 	my $err = $@;
+	log::l("step \"$o->{step}\" took: ", formatTimeRaw(time() - $time));
 	$o->kill_action;
 	if ($err) {
 	    local $_ = $err;
-- 
cgit v1.2.1