Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

HP1000: improve perl version compatibility

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@17017 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski 2018-07-22 16:58:33 +00:00
parent 62d35107dc
commit b6877865cb
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/50_HP1000.pm
View File

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