From 2fdde0e7a77708281729c743e84613155a4d81e4 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Fri, 19 Jan 2018 19:14:49 +0100
Subject: [PATCH] fix pack syntax

---
 74_CometBlueBTLE.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/74_CometBlueBTLE.pm b/74_CometBlueBTLE.pm
index edb86c2..b49a98b 100644
--- a/74_CometBlueBTLE.pm
+++ b/74_CometBlueBTLE.pm
@@ -49,7 +49,7 @@ use JSON;
 use Blocking;
 
 
-my $version = "0.0.11";
+my $version = "0.0.13";
 
 
 
@@ -674,7 +674,7 @@ sub CometBlueBTLE_HandleFirmware($$) {
     
     Log3 $name, 3, "CometBlueBTLE ($name) - FlowerSens handle $gatttChar{'firmware'}";
 
-    $readings{'firmware'}   = pack('H*'.$notification);
+    $readings{'firmware'}   = pack('H*',$notification);
 
     $hash->{helper}{CallBattery} = 0;
     return \%readings;
@@ -690,7 +690,7 @@ sub CometBlueBTLE_HandleDevicename($$) {
     
     Log3 $name, 3, "CometBlueBTLE ($name) - FlowerSens handle $gatttChar{'devicename'}";
 
-    $readings{'devicename'}   = pack('H*'.$notification);
+    $readings{'devicename'}   = pack('H*',$notification);
 
     $hash->{helper}{CallBattery} = 0;
     return \%readings;