From 5fe11b3584ed451af3e235e732133be5ed472720 Mon Sep 17 00:00:00 2001 From: mersewsky Date: Tue, 5 Apr 2016 18:37:06 +0000 Subject: [PATCH] 70_BRAVIA.pm: switch to XML::Simple strict mode git-svn-id: https://svn.fhem.de/fhem/trunk@11193 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/70_BRAVIA.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/fhem/FHEM/70_BRAVIA.pm b/fhem/FHEM/70_BRAVIA.pm index 65877f635..12e264711 100644 --- a/fhem/FHEM/70_BRAVIA.pm +++ b/fhem/FHEM/70_BRAVIA.pm @@ -38,7 +38,7 @@ use SetExtensions; use Encode; use JSON qw(decode_json); use MIME::Base64; -use XML::Simple; +use XML::Simple qw(:strict); use IO::Socket; sub BRAVIA_Set($@); @@ -938,7 +938,7 @@ sub BRAVIA_ReceiveCommand($$$) { readingsBulkUpdate( $hash, "requestFormat", "xml" ) if ( $service eq "getStatus" && ReadingsVal($name , "requestFormat", "") eq "" ); - $return = $parser->XMLin( Encode::encode_utf8($data) ); + $return = $parser->XMLin( Encode::encode_utf8($data), KeyAttr => [ ] ); } elsif ( $data =~ /^{/ || $data =~ /^\[/ ) {