common: hide empty debug time
authorMischa POSLAWSKY <perl@shiar.org>
Fri, 14 Apr 2017 09:21:43 +0000 (11:21 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Thu, 25 May 2017 20:10:21 +0000 (22:10 +0200)
Avoid epoch value if start hasn't been set for whatever reason.

common.inc.plp

index cd218efe2436d4e6dbc36ec67e196992a5196ccd..31c2c2270b71e209a20cf885fe0363ad623066e6 100644 (file)
@@ -159,7 +159,7 @@ sub Html {
        <a href="http://www.fsf.org/licensing/licenses/agpl-3.0.html" rel="license copyright"
         title="Licensed under the GNU Affero General Public License, version 3">AGPLv3</a>
 EOT
-               say sprintf '• %.3fs', Time::HiRes::tv_interval($Time) if $Dev;
+               say sprintf '• %.3fs', Time::HiRes::tv_interval($Time) if $Dev and $Time;
                say '</p>';
                say '';
                say '</html>';