From c5c02042ee115d9e37ee918d6a48027f22300de4 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 8 Jul 2015 13:22:45 +0000
Subject: [PATCH] 00_ZWDongle.pm: bugfix (Forum #37418)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@8918 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_ZWDongle.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/00_ZWDongle.pm b/fhem/FHEM/00_ZWDongle.pm
index eeabd12f5..522e83436 100755
--- a/fhem/FHEM/00_ZWDongle.pm
+++ b/fhem/FHEM/00_ZWDongle.pm
@@ -694,8 +694,8 @@ ZWDongle_Read($@)
     DevIo_SimpleWrite($hash, "06", 1);          # Send ACK
     
     # SEND_DATA answer: remove message from SendStack. TODO: check callbackId
-    if($msg =~ m/^0(0|1)13..(..)/ ){
-      my ($r, $m) = ($1, $2);
+    if($msg =~ m/^0013..(..)/  || $msg =~ m/^0113(..)/ ){
+      my $m = $1;
       my %msg = ('00'=>'OK', '01'=>'NO_ACK', '02'=>'FAIL',
                  '03'=>'NOT_IDLE', '04'=>'NOROUTE' );
       $m = $msg{$m} ? $msg{$m} : "UNKNOWN $m";