FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-04 23:46:35 +00:00
Code Issues Releases Wiki Activity

00_HMUARTLGW.pm: improve support for old perl versions

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12433 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
mgernoth 2016-10-26 08:36:40 +00:00
parent 4f72f17462
commit a08b6a162e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/FHEM/00_HMUARTLGW.pm
View File

@ -2069,8 +2069,10 @@ sub HMUARTLGW_sendAscii($$)
$msg = sprintf($msg, $hash->{CNT}); $msg = sprintf($msg, $hash->{CNT});
my $logmsg = $msg;
$logmsg =~ s/\r\n$//;
Log3($hash, HMUARTLGW_getVerbLvl($hash, undef, undef, 5), Log3($hash, HMUARTLGW_getVerbLvl($hash, undef, undef, 5),
"HMUARTLGW ${name} send (".length($msg)."): ". $msg =~ s/\r\n//r); "HMUARTLGW ${name} send (".length($logmsg)."): ". $logmsg);
$msg = HMUARTLGW_encrypt($hash, $msg) if ($hash->{crypto} && !($msg =~ m/^V/)); $msg = HMUARTLGW_encrypt($hash, $msg) if ($hash->{crypto} && !($msg =~ m/^V/));
$hash->{CNT} = ($hash->{CNT} + 1) & 0xff; $hash->{CNT} = ($hash->{CNT} + 1) & 0xff;