From 857777a479f6b61b2e37096698e0b76b49a7b2ba Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 17 Feb 2016 07:00:32 +0000
Subject: [PATCH] 10_ZWave.pm: reset $@ for Windows/new Perl ? (Forum #49444)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10866 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_ZWave.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/fhem/FHEM/10_ZWave.pm b/fhem/FHEM/10_ZWave.pm
index 7ee438969..10f3b864e 100755
--- a/fhem/FHEM/10_ZWave.pm
+++ b/fhem/FHEM/10_ZWave.pm
@@ -805,6 +805,7 @@ ZWave_Cmd($$@)
 
   } else {
     $cmdFmt = sprintf($cmdFmt, @a) if($nArg);
+    $@ = undef;
     my ($err, $ncmd) = eval($cmdFmt) if($cmdFmt !~ m/^\d/);
     return $err if($err);
     return $@ if($@);