2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-21 01:46:08 +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; use Data::Dumper;
require RESIDENTStk; require RESIDENTStk;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
no if $] >= 5.017011, warnings => 'experimental::lexical_topic';
sub RESIDENTS_Set($@); sub RESIDENTS_Set($@);
sub RESIDENTS_Define($$); sub RESIDENTS_Define($$);
sub RESIDENTS_Notify($$); sub RESIDENTS_Notify($$);

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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