From 669997ae8938de2b4538f95788ec9fc734af81da Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 12 Apr 2019 12:38:26 +0000
Subject: [PATCH] 00_ZWDongle.pm: fix some warnings (Forum #99507)

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

diff --git a/fhem/FHEM/00_ZWDongle.pm b/fhem/FHEM/00_ZWDongle.pm
index 89a788b55..2c7fddb7e 100644
--- a/fhem/FHEM/00_ZWDongle.pm
+++ b/fhem/FHEM/00_ZWDongle.pm
@@ -435,6 +435,9 @@ ZWDongle_Get($@)
      ReadingsVal($name, "caps","") !~ m/\b$zw_func_id{$fb}\b/) {
     return "$cmd is unsupported by this controller";
   }
+  my @ga = split("%", $gets{$cmd}, -1);
+  my $nargs = int(@ga)-1;
+  return "get $name $cmd needs $nargs arguments" if($nargs != int(@a));
 
   if($cmd eq "raw") {
     if($a[0] =~ s/^42//) {
@@ -455,10 +458,6 @@ ZWDongle_Get($@)
         if(int(@a) != 1);
   }
 
-  my @ga = split("%", $gets{$cmd}, -1);
-  my $nargs = int(@ga)-1;
-  return "get $name $cmd needs $nargs arguments" if($nargs != int(@a));
-
   return "No $cmd for dummies" if(IsDummy($name));
 
   my $a0 = $a[0];