Rounding to nearest quarter: strip leading zeros!

diff --git a/tks.pl b/tks.pl
index c17abb5dc520deace4c647cbd307052a2e6042a4..097ca7d1756c193177b5320e7f8b3a059eeba701 100755 (executable)
--- a/tks.pl
+++ b/tks.pl
@@ -304,6 +304,7 @@ sub convert_to_minutes {
 sub round {
 
     my ($min, $pos) = @_;
+    $min =~ s/^0?//;
     my %boundaries = (
        25 => {
            0  => [  0 .. 24 ],