Allow negative times
authorJoey Schulze <joey@infodrom.org>
Tue, 29 Aug 2017 16:04:28 +0000 (18:04 +0200)
committerJoey Schulze <joey@infodrom.org>
Tue, 29 Aug 2017 16:04:28 +0000 (18:04 +0200)
src/InfoCon/stempel/stempel

index d851455..9c1c92f 100755 (executable)
@@ -144,7 +144,7 @@ sub quarter
 {
     my $min = shift;
 
 {
     my $min = shift;
 
-    return 15 if $min < 15;
+    return 15 if $min > 0 && $min < 15;
 
     return $min - $min%15 if ($min%15 < 3);
 
 
     return $min - $min%15 if ($min%15 < 3);