summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-12-14 14:05:08 +0000
committerThierry Vignaud <tv@mageia.org>2012-12-14 14:05:08 +0000
commit70da5f76fd0375a4405252660319eef5d434ae35 (patch)
tree21cffb4f21c3c6fc4ea8d6a5e9953efc02b9b4b9 /perl-install
parent0a5e281ec0a4bfc3e3c3e907b7cdc90f24ec8161 (diff)
downloaddrakx-70da5f76fd0375a4405252660319eef5d434ae35.tar
drakx-70da5f76fd0375a4405252660319eef5d434ae35.tar.gz
drakx-70da5f76fd0375a4405252660319eef5d434ae35.tar.bz2
drakx-70da5f76fd0375a4405252660319eef5d434ae35.tar.xz
drakx-70da5f76fd0375a4405252660319eef5d434ae35.zip
(real_main) time steps in logs
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/install/install2.pm2
2 files changed, 3 insertions, 0 deletions
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;