X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=blobdiff_plain;f=bin%2Fheat;fp=bin%2Fheat;h=77dac14b2f82e324ce8489b676f5435f67036d28;hp=1da4a35fe81e3d60df6f36631a28f85aa89fbb65;hb=2dcd619187f41847c335fcdf8277eed476f7231e;hpb=f46603f6d1c66c3a479e561480feec743daa6b02

diff --git a/bin/heat b/bin/heat
index 1da4a35..77dac14 100755
--- a/bin/heat
+++ b/bin/heat
@@ -78,7 +78,7 @@ sub schedulenext($) {
   die "No bestnext" if !defined $bestnext;
   return [$prev,$next];
 }
-$finishline=schedulenext $minutes;
+$finishline=[schedulenext($minutes)->[1]];
 my $silent=shift if ($ARGV[0]||"") eq "-s";
 logmsg "command: ".join(" ",@ARGV) if !$silent&&@ARGV;
 sub info($) {
@@ -108,7 +108,7 @@ if (defined $reset) {
 sub finishlinereset() {
   $finishline=schedulenext $resetminutes;
   if ($finishline) {
-    splice @$finishline,1,0,$reset;
+    $finishline=[$reset,$finishline->[1]];
   } else {
     $finishline=[$reset];
   }
@@ -156,7 +156,7 @@ if (!defined $newreset) {
   setstate;
   if (!$silent&&defined $reset) {
     unlink_resetfile;
-    $finishline=schedulenext $minutes;
+    $finishline=[schedulenext($minutes)->[1]];
   }
   finish;
 }