From 391ecbc4961effe8f5c62ef70dec1bda45c433bb Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 6 Jan 2017 12:37:05 +0000
Subject: [PATCH] 0_CUL.pm: correct patch

git-svn-id: https://svn.fhem.de/fhem/trunk@12981 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_CUL.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/fhem/FHEM/00_CUL.pm b/fhem/FHEM/00_CUL.pm
index 1244db330..ca3d7b208 100755
--- a/fhem/FHEM/00_CUL.pm
+++ b/fhem/FHEM/00_CUL.pm
@@ -47,7 +47,6 @@ my @ampllist = (24, 27, 30, 33, 36, 38, 40, 42); # rAmpl(dB)
 
 my $sccMods = "STACKABLE_CC:TSSTACKED"; # for noansi
 my $culNameRe = "^(CUL|TSCUL)\$";
-my $culLikeRe = "^(CUL|TSCUL|STACKABLE_CC|TSSTACKED)\$";
 
 my $clientsSlowRF    = ":FS20:FHT.*:KS300:USF1000:BS:HMS: ".
                        ":CUL_EM:CUL_WS:CUL_FHTTK:CUL_HOERMANN: ".
@@ -189,7 +188,7 @@ CUL_Define($$)
     my $x = $1;
     foreach my $d (keys %defs) {
       next if($d eq $name);
-      if($defs{$d}{TYPE} =~ m/$culLikeRe/) {
+      if($defs{$d}{TYPE} =~ m/$culNameRe/) {
         if(uc($defs{$d}{FHTID}) =~ m/^$x/) {
           my $m = "$name: Cannot define multiple CULs with identical ".
                         "first two digits ($x)";