Allow negative times
[infodrom.org/service.infodrom.org] / src / InfoCon / stempel / stempel
index d851455..9c1c92f 100755 (executable)
@@ -144,7 +144,7 @@ sub quarter
 {
     my $min = shift;
 
-    return 15 if $min < 15;
+    return 15 if $min > 0 && $min < 15;
 
     return $min - $min%15 if ($min%15 < 3);