summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/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;