mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects 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 98ee9ad9f1
commit 669997ae89
1 changed files with 3 additions and 4 deletions
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/) {
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];