From 991d23282db6dbe567e0ae2ce1f94e1e2f411539 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Wed, 8 Aug 2018 05:34:42 +0000
Subject: [PATCH] 14_CUL_TX.pm: some further cases when modifiying the code
 (Forum #90003)

git-svn-id: https://svn.fhem.de/fhem/trunk@17102 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/14_CUL_TX.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/14_CUL_TX.pm b/fhem/FHEM/14_CUL_TX.pm
index 4b12f1b19..c3979c5ea 100644
--- a/fhem/FHEM/14_CUL_TX.pm
+++ b/fhem/FHEM/14_CUL_TX.pm
@@ -38,8 +38,10 @@ CUL_TX_Define($$)
   my $dp = $modules{CUL_TX}{defptr};
   my $old = ($dp && $dp->{$a[2]} ? $dp->{$a[2]}{NAME} : "");
   my $op = ($hash->{OLDDEF} ? "modify":"define");
+  my $oc = ($hash->{OLDDEF} ? $hash->{CODE} : "");
   return "Cannot $op $hash->{NAME} as the code $a[2] is already used by $old"
-        if($old);
+        if($old && $oc ne $a[2]);
+  delete($modules{CUL_TX}{defptr}{$oc}) if($oc);
 
   $hash->{CODE} = $a[2];
   $hash->{corr} = ((int(@a) > 3) ? $a[3] : 0);