From 8bafc0241f025b358c96fa9d0da3d4cf17d4be8a Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sun, 29 Nov 2015 14:51:40 +0000
Subject: [PATCH] 90_at.pm: avoid perl 5.26 Warning in regexp (Forum #44862)

git-svn-id: https://svn.fhem.de/fhem/trunk@10048 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/90_at.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fhem/FHEM/90_at.pm b/fhem/FHEM/90_at.pm
index 9c7772f28..71e577984 100755
--- a/fhem/FHEM/90_at.pm
+++ b/fhem/FHEM/90_at.pm
@@ -179,7 +179,7 @@ at_Exec($)
   $data{AT_TRIGGERTIME} = $hash->{TRIGGERTIME} if($def =~ m/^\+/);
 
   if($count) {
-    $def =~ s/{\d+}/{$count}/ if($def =~ m/^\+?\*{\d+}/);  # Replace the count
+    $def =~ s/\{\d+\}/{$count}/ if($def =~ m/^\+?\*\{\d+\}/); # Replace count
     Log3 $name, 5, "redefine at command $name as $def";
 
     $data{AT_RECOMPUTE} = 1;             # Tell sunrise compute the next day