From d19939c5e403ab448ef4d3063028dffbbe5db99e Mon Sep 17 00:00:00 2001
From: mgernoth <mgernoth@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 26 Oct 2016 08:36:40 +0000
Subject: [PATCH] 00_HMUARTLGW.pm: improve support for old perl versions

git-svn-id: https://svn.fhem.de/fhem/trunk@12433 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_HMUARTLGW.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/00_HMUARTLGW.pm b/fhem/FHEM/00_HMUARTLGW.pm
index b91b00b29..09db5b912 100644
--- a/fhem/FHEM/00_HMUARTLGW.pm
+++ b/fhem/FHEM/00_HMUARTLGW.pm
@@ -2069,8 +2069,10 @@ sub HMUARTLGW_sendAscii($$)
 
 	$msg = sprintf($msg, $hash->{CNT});
 
+	my $logmsg = $msg;
+	$logmsg =~ s/\r\n$//;
 	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/));
 
 	$hash->{CNT} = ($hash->{CNT} + 1) & 0xff;