# HG changeset patch # User Heiko Schlittermann # Date 1450654746 -3600 # Node ID e139241262c33bfa040cdeff7ef94f33d9b52b0e # Parent 46cb564528325f153d16b03bf30c6c495d1eb4e5 humanize diff -r 46cb56452832 -r e139241262c3 once.pl --- a/once.pl Sun Dec 20 23:35:02 2015 +0100 +++ b/once.pl Mon Dec 21 00:39:06 2015 +0100 @@ -41,7 +41,7 @@ use Cwd qw(getcwd realpath); use Digest::MD5 qw(md5_hex); -sub human; # convert numbers to human readable format +sub humanize; # convert numbers to human readable format sub deletedir; # safely delete directories sub confirm; # ask for user confirmation (HTML) sub deslash; # cleanup a path name @@ -234,7 +234,7 @@ print Tr( td(a { href => "$ENV{PATH_INFO}/$dir$file" }, $file), - td({ align => "right" }, human((stat $_)[7])), + td({ align => "right" }, humanize((stat $_)[7])), td(scalar localtime +(stat $_)[9]), td($d), td(a({ href => "?delete=$dir" }, 'remove')) @@ -266,7 +266,7 @@ grep { /^\Q$ONCE_VAR\E/ } @_; } -sub human { +sub humanize { my $_ = shift; my @units = qw(B K M G T); while (length int > 3 and @units) {