10_ZWave.pm: reset $@ for Windows/new Perl ? (Forum #49444)

git-svn-id: https://svn.fhem.de/fhem/trunk@10866 2b470e98-0d58-463d-a4d8-8e2adae1ed80

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($@);