From 5ecdec9dbf21afc680e338f7fec7c5f2a6aff17e Mon Sep 17 00:00:00 2001
From: "klaus.schauer" <>
Date: Mon, 17 Aug 2020 16:09:25 +0000
Subject: [PATCH] 00_TCM: function call switched to "use DevIo"

git-svn-id: https://svn.fhem.de/fhem/trunk@22616 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_TCM.pm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/fhem/FHEM/00_TCM.pm b/fhem/FHEM/00_TCM.pm
index 87632a22c..276c008c2 100755
--- a/fhem/FHEM/00_TCM.pm
+++ b/fhem/FHEM/00_TCM.pm
@@ -11,12 +11,8 @@
 package main;
 use strict;
 use warnings;
+use DevIo;
 use Time::HiRes qw(gettimeofday usleep);
-if( $^O =~ /Win/ ) {
-  require Win32::SerialPort;
-} else {
-  require Device::SerialPort;
-}
 sub TCM_Read($);
 sub TCM_ReadAnswer($$);
 sub TCM_Ready($);
@@ -28,7 +24,6 @@ sub TCM_CSUM($);
 
 sub TCM_Initialize($) {
   my ($hash) = @_;
-  require "$attr{global}{modpath}/FHEM/DevIo.pm";
 
 # Provider
   $hash->{ReadFn}  = "TCM_Read";
@@ -237,7 +232,7 @@ sub TCM_Fingerprint($$) {
 sub TCM_Write($$$$) {
   # Input is header and data (HEX), without CRC
   my ($hash, $shash, $header, $msg) = @_;
-  return if (!exists($hash->{helper}{init_done}) && $hash != $shash);
+  #return if (!exists($hash->{helper}{init_done}) && $hash != $shash);
   # return if (!defined($header));
   my $name = $hash->{NAME};
   my $bstring;