(real_main) time steps in logs

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;