From 1a20e4e75b77816bc0cb11d1c9a9e2f7f4111d1f Mon Sep 17 00:00:00 2001 From: betateilchen Date: Mon, 1 Jun 2015 17:11:36 +0000 Subject: [PATCH] fixed: experimental warnings git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@8677 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/55_GDS.pm | 2 ++ fhem/FHEM/55_InfoPanel.pm | 2 +- fhem/contrib/98_openweathermap.pm | 2 ++ 3 files changed, 5 insertions(+), 1 deletion(-) diff --git a/fhem/FHEM/55_GDS.pm b/fhem/FHEM/55_GDS.pm index d00ec63cb..c7cfb2e70 100644 --- a/fhem/FHEM/55_GDS.pm +++ b/fhem/FHEM/55_GDS.pm @@ -39,6 +39,8 @@ use XML::Simple; use HttpUtils; require LWP::UserAgent; +no if $] >= 5.017011, warnings => 'experimental'; + my ($bulaList, $cmapList, %rmapList, $fmapList, %bula2bulaShort, %bulaShort2dwd, %dwd2Dir, %dwd2Name, $alertsXml, %capCityHash, %capCellHash, $sList, $aList); diff --git a/fhem/FHEM/55_InfoPanel.pm b/fhem/FHEM/55_InfoPanel.pm index cc890974c..cb7c3acf9 100644 --- a/fhem/FHEM/55_InfoPanel.pm +++ b/fhem/FHEM/55_InfoPanel.pm @@ -72,7 +72,7 @@ my @valid_halign = qw(start middle end); my $useImgTools = 1; -no if $] >= 5.017011, warnings => 'experimental::smartmatch'; +no if $] >= 5.017011, warnings => 'experimental'; sub btIP_Define; sub btIP_Undef; diff --git a/fhem/contrib/98_openweathermap.pm b/fhem/contrib/98_openweathermap.pm index ee1f27dcf..9faf75c85 100644 --- a/fhem/contrib/98_openweathermap.pm +++ b/fhem/contrib/98_openweathermap.pm @@ -74,6 +74,8 @@ use XML::Simple; eval {require JSON}; use feature qw/say switch/; +no if $] >= 5.017011, warnings => 'experimental'; + require LWP::UserAgent; # test my $ua = LWP::UserAgent->new; # test $ua->timeout(10); # test