From 0f070c5d650de938d55d4e01b6c65af4f34c5dd2 Mon Sep 17 00:00:00 2001
From: Wzut <>
Date: Tue, 27 Jul 2021 17:30:56 +0000
Subject: [PATCH] 38_BEOK.pm: fix regex for set profile time and temp

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@24803 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/38_BEOK.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/FHEM/38_BEOK.pm b/FHEM/38_BEOK.pm
index 49eb64620..716269d74 100644
--- a/FHEM/38_BEOK.pm
+++ b/FHEM/38_BEOK.pm
@@ -519,8 +519,8 @@ sub Set {
 	return send_packet($hash, 0x6a, @payload);
     }
 
-    if ( $cmd =~ m{ /^(day|we)-profile[1-8]-time$/ }x ) {
-	return "Time must be between 0:00 and 23:59" if ($subcmd !~ m{/(?:[01]\d|2[0123]):(?:[012345]\d)/gm}x);
+    if ( $cmd =~ m{(day|we)-profile[1-8]-time}x ) {
+	return "Time must be between 0:00 and 23:59" if ($subcmd !~ /(?:[01]\d|2[0123]):(?:[012345]\d)/gmx);
 	my $day = $cmd;
 	$day =~ s/(day|we)-profile//;
 	$day =~ s/-time//;
@@ -534,7 +534,7 @@ sub Set {
 	return send_packet($hash, 0x6a, @payload);
     }
 
-    if ( $cmd =~ m{ /^(day|we)-profile[1-8]-temp$/ }x ) {
+    if ( $cmd =~ m{(day|we)-profile[1-8]-temp}x ) {
 	my $temp = int($subcmd*2);
 	return "Temperature must be between 5 and 99" if (($temp < 10) || ($temp > 198));