From: Eric Wong <e@yhbt.net>
Date: Mon, 6 Jan 2020 05:31:07 +0000 (+0000)
Subject: wwwstatic: use sprintf for Perl <5.22 compatibility
X-Git-Tag: v1.3.0~136
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=55b5349f7516ec04e003470cfe13238e0b0e5435;hp=033f628b52ebacf4a7bf8795084ba5ec498004bf;p=public-inbox.git

wwwstatic: use sprintf for Perl <5.22 compatibility

We only declare a Perl 5.10.1+ requirement, and POSIX::lround
was not added until 5.21.4 (5.22.0 for stable releases).
---

diff --git a/lib/PublicInbox/WwwStatic.pm b/lib/PublicInbox/WwwStatic.pm
index bc42236e..917049bb 100644
--- a/lib/PublicInbox/WwwStatic.pm
+++ b/lib/PublicInbox/WwwStatic.pm
@@ -12,7 +12,7 @@ use strict;
 use parent qw(Exporter);
 use bytes ();
 use Fcntl qw(SEEK_SET O_RDONLY O_NONBLOCK);
-use POSIX qw(strftime lround);
+use POSIX qw(strftime);
 use HTTP::Date qw(time2str);
 use HTTP::Status qw(status_message);
 use Errno qw(EACCES ENOTDIR ENOENT);
@@ -238,7 +238,7 @@ sub human_size ($) {
 			last;
 		}
 	}
-	lround($size).$suffix;
+	sprintf('%lu', $size).$suffix;
 }
 
 # by default, this returns "index.html" if it exists for a given directory