From 89772000bc62e7ef461db0a3068ef88917159307 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sat, 19 Jul 2014 07:45:58 +0000
Subject: [PATCH] allow more level numbers

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

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 01fb39a50..cf1f57d42 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -3343,7 +3343,7 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
     #level        =>"<level> <relockDly> <speed>..."
     my (undef,undef,$lvl,$rLocDly,$speed) = @a;
 
-    return "please enter level 0 to 100" if (!defined($lvl)    || $lvl !~ m/^\d+\.?\d+$/ || $lvl>100);
+    return "please enter level 0 to 100" if (!defined($lvl)    || $lvl !~ m/^\d*\.?\d?$/ || $lvl>100);
     return "reloclDelay range 0..65535 or ignore"
                                          if (defined($rLocDly) &&
                                              ($rLocDly > 65535 ||