From 323403ca7d0e32a9be3446436ee835e0f6ccaaa4 Mon Sep 17 00:00:00 2001
From: LeonGaultier <LeonGaultier@users.noreply.github.com>
Date: Wed, 11 Jul 2018 10:48:36 +0000
Subject: [PATCH] 74_NUKIDevice: fix Perl Warnings

git-svn-id: https://svn.fhem.de/fhem/trunk@16973 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED               | 1 +
 fhem/FHEM/73_NUKIBridge.pm | 6 +++---
 fhem/FHEM/74_NUKIDevice.pm | 4 +---
 3 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index 15969ddfa..9d4ced557 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - bugfix:  74_NUKIDevice: fix Perl Warnings
   - feature: 88_HMCCU: Support for channel number in attribute ccuscaleval
   - change:  98_DOIFtools: more precise hint related to DOELSE (Forum #89260)
   - change:  98_feels_like.pm: Improved algorithms
diff --git a/fhem/FHEM/73_NUKIBridge.pm b/fhem/FHEM/73_NUKIBridge.pm
index 3d64b3c06..8810c401f 100644
--- a/fhem/FHEM/73_NUKIBridge.pm
+++ b/fhem/FHEM/73_NUKIBridge.pm
@@ -46,8 +46,8 @@ use JSON;
 
 use HttpUtils;
 
-my $version     = "0.6.2";
-my $bridgeapi   = "1.5";
+my $version     = "0.6.3";
+my $bridgeapi   = "1.6";
 
 
 
@@ -477,7 +477,7 @@ sub NUKIBridge_ResponseProcessing($$$) {
         return "NUKIBridge ($name) - invalid json detected: $json";
     }
 
-    my $decode_json = eval{decode_json($json)};
+    $decode_json = eval{decode_json($json)};
     if($@){
         Log3 $name, 3, "NUKIBridge ($name) - JSON error while request: $@";
         return;
diff --git a/fhem/FHEM/74_NUKIDevice.pm b/fhem/FHEM/74_NUKIDevice.pm
index 1872bce6f..5a059e768 100644
--- a/fhem/FHEM/74_NUKIDevice.pm
+++ b/fhem/FHEM/74_NUKIDevice.pm
@@ -33,7 +33,7 @@ use warnings;
 use JSON;
 
 
-my $version = "0.6.2";
+my $version = "0.6.3";
 
 
 
@@ -213,8 +213,6 @@ sub NUKIDevice_Attr(@) {
     
     return "Invalid value for attribute $attrName: can only by FQDN or IPv4 or IPv6 address" if ( $attrVal && $attrName eq "webhookHttpHostname" && $attrVal !~ /^([A-Za-z_.0-9]+\.[A-Za-z_.0-9]+)|[0-9:]+$/ );
 
-    return "Invalid value for attribute $attrName: needs to be different from the defined name/address of your Smartlock, we need to know how Smartlock can connect back to FHEM here!" if ( $attrVal && $attrName eq "webhookHttpHostname" && $attrVal eq $hash->{DeviceName} );
-
     return "Invalid value for attribute $attrName: FHEMWEB instance $attrVal not existing" if ( $attrVal && $attrName eq "webhookFWinstance" && ( !defined( $defs{$attrVal} ) || $defs{$attrVal}{TYPE} ne "FHEMWEB" ) );
 
     return "Invalid value for attribute $attrName: needs to be an integer value" if ( $attrVal && $attrName eq "webhookPort" && $attrVal !~ /^\d+$/ );