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;
|
use Net::Telnet;
|
||||||
|
|
||||||
|
|
||||||
my $version = "0.1.35";
|
my $version = "0.1.36";
|
||||||
|
|
||||||
|
|
||||||
my %heosCmds = (
|
my %heosCmds = (
|
||||||
@ -294,8 +294,13 @@ sub HEOSMaster_Write($@) {
|
|||||||
my ($hash,$heosCmd,$value) = @_;
|
my ($hash,$heosCmd,$value) = @_;
|
||||||
my $name = $hash->{NAME};
|
my $name = $hash->{NAME};
|
||||||
|
|
||||||
|
|
||||||
my $string = "heos://$heosCmds{$heosCmd}";
|
my $string = "heos://$heosCmds{$heosCmd}";
|
||||||
$string .= "${value}" if(defined($value) or $value ne '&');
|
|
||||||
|
if( defined($value) ) {
|
||||||
|
$string .= "${value}" if( $value ne '&' );
|
||||||
|
}
|
||||||
|
|
||||||
$string .= "\r\n";
|
$string .= "\r\n";
|
||||||
|
|
||||||
Log3 $name, 4, "HEOSMaster ($name) - WriteFn called";
|
Log3 $name, 4, "HEOSMaster ($name) - WriteFn called";
|
||||||
|
@ -33,7 +33,7 @@ use warnings;
|
|||||||
use JSON;
|
use JSON;
|
||||||
|
|
||||||
|
|
||||||
my $version = "0.1.35";
|
my $version = "0.1.36";
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user