From: Joey Schulze <joey@infodrom.org>
Date: Tue, 29 Aug 2017 16:04:28 +0000 (+0200)
Subject: Allow negative times
X-Git-Url: https://git.infodrom.org/?p=infodrom.org%2Fservice.infodrom.org;a=commitdiff_plain;h=5b6711185941147f92f4fbc740dbe58e9b36733c;ds=sidebyside

Allow negative times
---

diff --git a/src/InfoCon/stempel/stempel b/src/InfoCon/stempel/stempel
index d851455..9c1c92f 100755
--- a/src/InfoCon/stempel/stempel
+++ b/src/InfoCon/stempel/stempel
@@ -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);