X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/c569daa13212ba1d634879ed512f2b51ce9c1533..7ff8f33c49bc503d16ddda159c9848f88b80d5ad:/SL/LXDebug.pm diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm index 707b89230..7dddf2a02 100644 --- a/SL/LXDebug.pm +++ b/SL/LXDebug.pm @@ -348,7 +348,10 @@ sub log_time { return 1 unless want_request_timer(); my $now = $self->get_request_time; - my $diff = int((($now - ($self->{previous_log_time} // 0)) * 10_000 + 5) / 10); + + return 1 unless $now; + + my $diff = $self->{previous_log_time} ? int((($now - ($self->{previous_log_time} // 0)) * 10_000 + 5) / 10) : $now * 10_0000 + 5; $self->{previous_log_time} = $now; $self->_write("time", "${now}s Δ ${diff}ms" . (@slurp ? " (@slurp)" : ''));