bin/heat: Fix scheduler regression.

[nethome.git] / bin / heat

diff --git a/bin/heat b/bin/heat
index 9227df5..f30ffe1 100755 (executable)
--- a/bin/heat
+++ b/bin/heat
@@ -131,7 +131,7 @@ sub printminutes($) {
 if ($silent) {
   if (!defined $newstate&&!defined $reset&&%schedule) {
     my $prev=schedulenext($minutes)->[0];
-    if ($prev=~m{^@[ printminutes $minutes ] (.)\n$}) {
+    if ($prev=~m{^@{[ printminutes $minutes ]} (.)\n$}) {
       $newstate=$1;
       logmsg "scheduled: $prev";
     }