2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-20 01:06:04 +00:00

all my modules: suppress experimental my $_ warning

git-svn-id: https://svn.fhem.de/fhem/trunk@11444 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski 2016-05-15 15:45:07 +00:00
parent 3f84525c4a
commit 5b2d8b4af8
10 changed files with 16 additions and 0 deletions

View File

@ -32,6 +32,9 @@ use Time::Local;
use Data::Dumper;
require RESIDENTStk;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
no if $] >= 5.017011, warnings => 'experimental::lexical_topic';
sub RESIDENTS_Set($@);
sub RESIDENTS_Define($$);
sub RESIDENTS_Notify($$);

View File

@ -32,6 +32,9 @@ use Time::Local;
use Data::Dumper;
require RESIDENTStk;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
no if $] >= 5.017011, warnings => 'experimental::lexical_topic';
sub GUEST_Set($@);
sub GUEST_Define($$);
sub GUEST_Notify($$);

View File

@ -32,6 +32,9 @@ use Time::Local;
use Data::Dumper;
require RESIDENTStk;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
no if $] >= 5.017011, warnings => 'experimental::lexical_topic';
sub ROOMMATE_Set($@);
sub ROOMMATE_Define($$);
sub ROOMMATE_Notify($$);

View File

@ -35,6 +35,7 @@ use Data::Dumper;
use FHEM::98_dewpoint;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
no if $] >= 5.017011, warnings => 'experimental::lexical_topic';
sub HP1000_Define($$);
sub HP1000_Undefine($$);

View File

@ -36,6 +36,7 @@ use HttpUtils;
use Encode;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
no if $] >= 5.017011, warnings => 'experimental::lexical_topic';
no warnings "all";

View File

@ -39,6 +39,7 @@ use SetExtensions;
use Encode;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
no if $] >= 5.017011, warnings => 'experimental::lexical_topic';
sub PHTV_Set($@);
sub PHTV_Get($@);

View File

@ -58,6 +58,7 @@ use SetExtensions;
use Encode;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
no if $] >= 5.017011, warnings => 'experimental::lexical_topic';
my %sets = ( "msg" => 1 );

View File

@ -40,6 +40,7 @@ use Data::Dumper;
use msgSchema;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
no if $] >= 5.017011, warnings => 'experimental::lexical_topic';
sub CommandMsg($$;$$);

View File

@ -36,6 +36,7 @@ use Time::Local;
use Data::Dumper;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
no if $] >= 5.017011, warnings => 'experimental::lexical_topic';
sub GEOFANCY_Set($@);
sub GEOFANCY_Define($$);

View File

@ -25,6 +25,7 @@
##############################################################################
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
no if $] >= 5.017011, warnings => 'experimental::lexical_topic';
#####################################
# PRE-DEFINITION: wakeuptimer