fixed: experimental warnings

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@8677 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen
2015-06-01 17:11:36 +00:00
parent 86691faf0b
commit 1a20e4e75b
3 changed files with 5 additions and 1 deletions

View File

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

View File

@@ -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;

View File

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