From cf9ea5aaa37850227f4aadbc57a0fdf793effa7f Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 7 Jan 2019 08:26:35 +0000
Subject: [PATCH] 00_MQTT2_CLIENT.pm: send retain flag in publish (Forum
 #95447)

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

diff --git a/fhem/FHEM/00_MQTT2_CLIENT.pm b/fhem/FHEM/00_MQTT2_CLIENT.pm
index 2693e704e..b85b57b65 100644
--- a/fhem/FHEM/00_MQTT2_CLIENT.pm
+++ b/fhem/FHEM/00_MQTT2_CLIENT.pm
@@ -364,7 +364,7 @@ MQTT2_CLIENT_doPublish($@)
   my $name = $hash->{NAME};
   return if(IsDisabled($name));
   $val = "" if(!defined($val));
-  my $msg = pack("C",0x30).
+  my $msg = pack("C", $retain ? 0x31:0x30).
             MQTT2_CLIENT_calcRemainingLength(2+length($topic)+length($val)).
             pack("n", length($topic)).
             $topic.$val;