Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

93_FHEM2FHEM.pm: avoid crash on startup (Forum #122977)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@24980 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2021-09-16 15:47:28 +00:00
parent 558dfe5435
commit 4ebf786df6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
FHEM/93_FHEM2FHEM.pm
View File

@ -381,8 +381,9 @@ FHEM2FHEM_Set($@)
FHEM2FHEM_CloseDev($hash); FHEM2FHEM_CloseDev($hash);
FHEM2FHEM_OpenDev($hash, 0); FHEM2FHEM_OpenDev($hash, 0);
} }
if($a[1] eq "cmd") { if($a[1] eq "cmd") {
return "Not connected" if($hash->{STATE} ne "connected"); return "Not connected" if(!$hash->{TCPDev});
my $cmd = join(" ",@a[2..$#a]); my $cmd = join(" ",@a[2..$#a]);
$cmd = '{my $r=fhem("'.$cmd.'");; defined($r) ? "\\0$r\\0" : $r}'."\n"; $cmd = '{my $r=fhem("'.$cmd.'");; defined($r) ? "\\0$r\\0" : $r}'."\n";
syswrite($hash->{TCPDev}, $cmd); syswrite($hash->{TCPDev}, $cmd);