diff --git a/fhem/FHEM/Blocking.pm b/fhem/FHEM/Blocking.pm index fc04f4dbb..a6967d9ab 100644 --- a/fhem/FHEM/Blocking.pm +++ b/fhem/FHEM/Blocking.pm @@ -31,11 +31,18 @@ our %BC_hash; my $telnetClient; my $bc_pid = 0; +use vars qw($BC_telnet); # set optionally by the user, Forum #68477 + sub BC_searchTelnet($) { my ($blockingFn) = @_; + if($BC_telnet) { + $BC_telnetDevice = $BC_telnet; + return; + } + $BC_telnetDevice = undef; foreach my $d (sort keys %defs) { # my $h = $defs{$d};