bugfix Use of uninitialized value in string ne at
This commit is contained in:
parent
9885deed82
commit
abf13b493e
@ -45,7 +45,7 @@ use JSON;
|
||||
use Net::Telnet;
|
||||
|
||||
|
||||
my $version = "0.1.35";
|
||||
my $version = "0.1.36";
|
||||
|
||||
|
||||
my %heosCmds = (
|
||||
@ -294,8 +294,13 @@ sub HEOSMaster_Write($@) {
|
||||
my ($hash,$heosCmd,$value) = @_;
|
||||
my $name = $hash->{NAME};
|
||||
|
||||
|
||||
my $string = "heos://$heosCmds{$heosCmd}";
|
||||
$string .= "${value}" if(defined($value) or $value ne '&');
|
||||
|
||||
if( defined($value) ) {
|
||||
$string .= "${value}" if( $value ne '&' );
|
||||
}
|
||||
|
||||
$string .= "\r\n";
|
||||
|
||||
Log3 $name, 4, "HEOSMaster ($name) - WriteFn called";
|
||||
|
@ -33,7 +33,7 @@ use warnings;
|
||||
use JSON;
|
||||
|
||||
|
||||
my $version = "0.1.35";
|
||||
my $version = "0.1.36";
|
||||
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user