From 4f5d91e2a31eb488b868b25ce18f83e2078157cb Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Wed, 24 Jul 2019 12:58:08 +0000
Subject: [PATCH] 10_ZWave.pm: change getVal visibility (Forum #102514)

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@19894 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/10_ZWave.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/FHEM/10_ZWave.pm b/FHEM/10_ZWave.pm
index bd2b366c9..bdc2c0015 100644
--- a/FHEM/10_ZWave.pm
+++ b/FHEM/10_ZWave.pm
@@ -2346,7 +2346,7 @@ sub
 ZWave_mfsParse($$$$$)
 {
   my ($hash, $mf, $prod, $id, $config) = @_;
-  sub getVal { return $_[0] =~ m/$_[1]\s*=\s*"([^"]*)"/ ? $1 : "unknown" }
+  my $getVal = sub { return $_[0] =~ m/$_[1]\s*=\s*"([^"]*)"/ ? $1 : "unknown"};
 
   if($config == 2) {
     setReadingsVal($hash, "modelId", "$mf-$prod-$id", TimeNow());
@@ -2360,24 +2360,24 @@ ZWave_mfsParse($$$$$)
     my ($lastMf, $mName, $ret) = ("","");
     while(my $l = <FH>) {
       if($l =~ m/<Manufacturer/) {
-        $lastMf = lc(getVal($l, "id"));
-        $mName = getVal($l, "name");
+        $lastMf = lc($getVal->($l, "id"));
+        $mName = $getVal->($l, "name");
         next;
       }
 
       if($l =~ m/<Product/) {
-        my $lId = lc(getVal($l, "id"));
-        my $lProd = lc(getVal($l, "type"));
+        my $lId = lc($getVal->($l, "id"));
+        my $lProd = lc($getVal->($l, "type"));
         if($mf eq $lastMf && $prod eq $lProd && $id eq $lId) {
           if($config) {
-            $ret = getVal($l, "config");
+            $ret = $getVal->($l, "config");
             ZWave_mfsAddClasses($hash, $1);
             # execInits needs the modelId
             setReadingsVal($hash, "modelId", "$mf-$prod-$id", TimeNow());
             ZWave_execInits($hash, 50, $ret);
             return "modelConfig:$ret";
           } else {
-            my $pName = getVal($l, "name");
+            my $pName = $getVal->($l, "name");
             $ret = "model:$mName $pName";
           }
           last;