FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00
Code Issues Releases Wiki Activity

HP1000: improve perl version compatibility

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@17017 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski 2018-07-22 16:58:33 +00:00
parent 6f81f6c59a
commit e004be5f82
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/FHEM/50_HP1000.pm
View File

@ -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 ) ) {