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).
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);
last;
}
}
- lround($size).$suffix;
+ sprintf('%lu', $size).$suffix;
}
# by default, this returns "index.html" if it exists for a given directory