From e004be5f829729a3c932aa9ee34a7e3a8e3601a1 Mon Sep 17 00:00:00 2001
From: jpawlowski <jpawlowski@users.noreply.github.com>
Date: Sun, 22 Jul 2018 16:58:33 +0000
Subject: [PATCH] HP1000: improve perl version compatibility

git-svn-id: https://svn.fhem.de/fhem/trunk@17017 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/50_HP1000.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/fhem/FHEM/50_HP1000.pm b/fhem/FHEM/50_HP1000.pm
index fff0f913e..903ced9a9 100755
--- a/fhem/FHEM/50_HP1000.pm
+++ b/fhem/FHEM/50_HP1000.pm
@@ -3,7 +3,6 @@
 package main;
 use strict;
 use warnings;
-no if $] >= 5.017011, warnings => 'experimental::smartmatch';
 use Data::Dumper;
 use Time::Local;
 use Encode qw(encode_utf8 decode_utf8);
@@ -12,7 +11,6 @@ use List::Util qw(sum);
 use HttpUtils;
 use Unit;
 
-
 # module hashes ###############################################################
 my %HP1000_pwsMapping = (
 
@@ -437,7 +435,7 @@ sub HP1000_CGI() {
 
         return ( "text/plain; charset=utf-8",
             "incorrect FHEMWEB instance to receive data" )
-          unless ( $FW_wname ~~ @webhookFWinstances );
+          unless ( grep ( /^$FW_wname$/, @webhookFWinstances ) );
 
         # extract values from URI
         foreach my $pv ( split( "&", $URI ) ) {