From 308bbd6f4590a285403c3423f7c2fa2154ced155 Mon Sep 17 00:00:00 2001 From: jpawlowski Date: Mon, 5 Oct 2015 08:04:23 +0000 Subject: [PATCH] =?UTF-8?q?ENIGMA2,=20ONKYO=5FAVR,=20PHTV,=20Pushover,=20G?= =?UTF-8?q?EOFANCY,=20RESIDENTStk,=20msg:=20suppress=20warning=20=E2=80=9C?= =?UTF-8?q?Smartmatch=20is=20experimental=E2=80=9D?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://svn.fhem.de/fhem/trunk@9380 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/70_ENIGMA2.pm | 2 ++ fhem/FHEM/70_ONKYO_AVR.pm | 2 ++ fhem/FHEM/70_PHTV.pm | 2 ++ fhem/FHEM/70_Pushover.pm | 2 ++ fhem/FHEM/98_GEOFANCY.pm | 11 ++++++++--- fhem/FHEM/RESIDENTStk.pm | 2 ++ fhem/contrib/99_msg.pm | 2 ++ 7 files changed, 20 insertions(+), 3 deletions(-) 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