From c256e50f07ca3b79e968072ecbbbe4f6329a7069 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sun, 2 Aug 2020 10:25:25 +0000
Subject: [PATCH] 98_XmlList.pm: avoid crash if IODev is a string (Forum
 #112114)

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

diff --git a/fhem/FHEM/98_XmlList.pm b/fhem/FHEM/98_XmlList.pm
index 9de4c02fa..62e24b03f 100644
--- a/fhem/FHEM/98_XmlList.pm
+++ b/fhem/FHEM/98_XmlList.pm
@@ -77,8 +77,13 @@ CommandXmlList($$)
         $str .= sprintf("\t\t\t<INT key=\"%s\" value=\"%s\"/>\n",
                         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}}) {
         next if(!$si && $c =~ m/^\./);