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

98_XmlList.pm: avoid crash if IODev is a string (Forum #112114)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@22518 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2020-08-02 10:25:25 +00:00
parent cf79ed6ac9
commit c256e50f07
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fhem/FHEM/98_XmlList.pm
View File

@ -77,8 +77,13 @@ CommandXmlList($$)
$str .= sprintf("\t\t\t<INT key=\"%s\" value=\"%s\"/>\n", $str .= sprintf("\t\t\t<INT key=\"%s\" value=\"%s\"/>\n",
XmlEscape($c), XmlEscape($p->{$c})); XmlEscape($c), XmlEscape($p->{$c}));
} }
$str .= sprintf("\t\t\t<INT key=\"IODev\" value=\"%s\"/>\n",
$p->{IODev}{NAME}) if($p->{IODev} && $p->{IODev}{NAME}); if($p->{IODev} &&
ref($p->{IODev}) eq "HASH" &&
$p->{IODev}{NAME}) {
$str .= sprintf("\t\t\t<INT key=\"IODev\" value=\"%s\"/>\n",
$p->{IODev}{NAME})
}
foreach my $c (sort keys %{$attr{$d}}) { foreach my $c (sort keys %{$attr{$d}}) {
next if(!$si && $c =~ m/^\./); next if(!$si && $c =~ m/^\./);