PERL WARNING: Use of uninitialized value in concatenation (.) or string at ./FHEM/10_EQ3BT.pm line 525.

[djStolen]

File Rev Last Change

10_EQ3BT.pm 17484 2018-10-07 18:54:14Z dominik

fhemweb.js 17478 2018-10-07 16:45:18Z rudolfkoenig

[chrizz1001]

yeah, I am not so much into pearl... Anybody knows whats wrong here?

fhem-mirror/fhem/FHEM/10_EQ3BT.pm

Lines 509 to 525 in 29571e5

	sub EQ3BT_execGatttool($) {
	my ($string) = @_;
	my ($name, $mac, $workType, $handle, $value, $listen) = split("\\|", $string);
	my $wait = 1;
	my $hash = $main::defs{$name};
	my $sshHost = AttrVal($name,"sshHost","none");
	my $gatttool; # = qx(which gatttool);
	$gatttool = qx(which gatttool) if($sshHost eq 'none');
	$gatttool = qx(ssh $sshHost 'which gatttool') if($sshHost ne 'none');
	chomp $gatttool;
	#if(-x $gatttool) {
	if(defined($gatttool) and ($gatttool)) {
	my $gtResult;
	my $cmd;
	my $hciDevice = "hci".$hash->{helper}{hcidevices}[$hash->{helper}{currenthcidevice}];