diff --git a/fhem/FHEM/70_ENIGMA2.pm b/fhem/FHEM/70_ENIGMA2.pm index e6b172cac..8c6eddf3c 100644 --- a/fhem/FHEM/70_ENIGMA2.pm +++ b/fhem/FHEM/70_ENIGMA2.pm @@ -58,6 +58,8 @@ use IO::Socket; use HttpUtils; use Encode; +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; + no warnings "all"; sub ENIGMA2_Set($@); diff --git a/fhem/FHEM/70_ONKYO_AVR.pm b/fhem/FHEM/70_ONKYO_AVR.pm index 70ab4e1be..95e20abe4 100755 --- a/fhem/FHEM/70_ONKYO_AVR.pm +++ b/fhem/FHEM/70_ONKYO_AVR.pm @@ -45,6 +45,8 @@ use Time::HiRes qw(usleep); use Symbol qw; use Data::Dumper; +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; + sub ONKYO_AVR_Set($@); sub ONKYO_AVR_Get($@); sub ONKYO_AVR_GetStatus($;$); diff --git a/fhem/FHEM/70_PHTV.pm b/fhem/FHEM/70_PHTV.pm index 99bf916b5..6974e40d2 100644 --- a/fhem/FHEM/70_PHTV.pm +++ b/fhem/FHEM/70_PHTV.pm @@ -53,6 +53,8 @@ use Color; use SetExtensions; use Encode; +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; + sub PHTV_Set($@); sub PHTV_Get($@); sub PHTV_GetStatus($;$); diff --git a/fhem/FHEM/70_Pushover.pm b/fhem/FHEM/70_Pushover.pm index d7404a510..2336ed8cf 100644 --- a/fhem/FHEM/70_Pushover.pm +++ b/fhem/FHEM/70_Pushover.pm @@ -57,6 +57,8 @@ use HttpUtils; use SetExtensions; use Encode; +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; + my %sets = ( "msg" => 1 ); #------------------------------------------------------------------------------ diff --git a/fhem/FHEM/98_GEOFANCY.pm b/fhem/FHEM/98_GEOFANCY.pm index 835abcd5e..e73051aab 100755 --- a/fhem/FHEM/98_GEOFANCY.pm +++ b/fhem/FHEM/98_GEOFANCY.pm @@ -45,6 +45,8 @@ use HttpUtils; use Time::Local; use Data::Dumper; +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; + sub GEOFANCY_Set($@); sub GEOFANCY_Define($$); sub GEOFANCY_Undefine($$); @@ -491,14 +493,17 @@ sub GEOFANCY_ISO8601UTCtoLocal ($) { GEOFANCY