70_BRAVIA.pm: switch to XML::Simple strict mode

git-svn-id: https://svn.fhem.de/fhem/trunk@11193 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
mersewsky
2016-04-05 18:37:06 +00:00
parent 6fa80ed3e8
commit 5fe11b3584

View File

@@ -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 =~ /^\[/ ) {