FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-22 20:24:36 +00:00
Code Issues Releases Wiki Activity

00_ZWDongle.pm: fix some warnings (Forum #99507)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@19159 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2019-04-12 12:38:26 +00:00
parent 2d1e442e36
commit c4f593f4be
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fhem/FHEM/00_ZWDongle.pm
View File

@ -435,6 +435,9 @@ ZWDongle_Get($@)
ReadingsVal($name, "caps","") !~ m/\b$zw_func_id{$fb}\b/) { ReadingsVal($name, "caps","") !~ m/\b$zw_func_id{$fb}\b/) {
return "$cmd is unsupported by this controller"; 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($cmd eq "raw") {
if($a[0] =~ s/^42//) { if($a[0] =~ s/^42//) {
@ -455,10 +458,6 @@ ZWDongle_Get($@)
if(int(@a) != 1); 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)); return "No $cmd for dummies" if(IsDummy($name));
my $a0 = $a[0]; my $a0 = $a[0];