fix Use of uninitialized value {repeat} in substitution (s///)

This commit is contained in:
Marko Oldenburg 2018-03-08 10:41:46 +01:00
parent 3acc0dc955
commit 96a492a78f

View File

@ -39,7 +39,7 @@ use Encode qw(encode_utf8);
use URI::Escape;
#use Data::Dumper;
my $version = "1.0.3";
my $version = "1.0.4";
@ -938,7 +938,7 @@ sub HEOSPlayer_PreProcessingReadings($$) {
$buffer{'shuffle'} = $message{shuffle};
$buffer{'repeat'} = $message{repeat};
$buffer{'repeat'} =~ s/.*\_(.*)/$1/g;
$buffer{'repeat'} =~ s/.*\_(.*)/$1/g if( defined($buffer{'repeat'}) );
} elsif ( $decode_json->{heos}{command} =~ /get_mute/ ) {