From: Penny Leach <penny@mjollnir.org>
Date: Tue, 15 Dec 2009 15:10:43 +0000 (+0100)
Subject: Rounding to nearest quarter: strip leading zeros!
X-Git-Url: http://git.mjollnir.org/gw?a=commitdiff_plain;h=abf3e397188da882f4a836ef8752330cf77f1526;p=tks.git

Rounding to nearest quarter: strip leading zeros!
---

diff --git a/tks.pl b/tks.pl
index c17abb5..097ca7d 100755
--- 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 ],