From abf3e397188da882f4a836ef8752330cf77f1526 Mon Sep 17 00:00:00 2001 From: Penny Leach Date: Tue, 15 Dec 2009 16:10:43 +0100 Subject: [PATCH] Rounding to nearest quarter: strip leading zeros! --- tks.pl | 1 + 1 file changed, 1 insertion(+) 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 ], -- 2.39.5