FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-21 14:04:15 +00:00
Code Issues Releases Wiki Activity

experimental::smartmatch compatibility for newer Perl versions

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12048 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski 2016-08-22 08:09:11 +00:00
parent c7eee17e15
commit d3dc3f400c
12 changed files with 14 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fhem/FHEM/10_RESIDENTS.pm
View File

@ -32,7 +32,7 @@ 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';
sub RESIDENTS_Set($@); sub RESIDENTS_Set($@);
sub RESIDENTS_Define($$); sub RESIDENTS_Define($$);
@ -1583,8 +1583,8 @@ sub RESIDENTS_UpdateReadings (@) {
=pod =pod
=item helper =item helper
=item summary combines <a href="#ROOMMATE">ROOMMATE</a> and <a href="#GUEST">GUEST</a> devices to a residential community =item summary combines ROOMMATE and GUEST devices to a residential community
=item summary_de fasst <a href="#ROOMMATE">ROOMMATE</a> und <a href="#GUEST">GUEST</a> Ger&auml;te zu einer Wohngemeinschaft zusammen =item summary_de fasst ROOMMATE und GUEST Ger&auml;te zu einer Wohngemeinschaft zusammen
=begin html =begin html
<p> <p>

2
fhem/FHEM/20_GUEST.pm
View File

@ -32,7 +32,7 @@ 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';
sub GUEST_Set($@); sub GUEST_Set($@);
sub GUEST_Define($$); sub GUEST_Define($$);

2
fhem/FHEM/20_ROOMMATE.pm
View File

@ -32,7 +32,7 @@ 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';
sub ROOMMATE_Set($@); sub ROOMMATE_Set($@);
sub ROOMMATE_Define($$); sub ROOMMATE_Define($$);

2
fhem/FHEM/50_HP1000.pm
View File

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

4
fhem/FHEM/70_ENIGMA2.pm
View File

@ -35,7 +35,7 @@ use IO::Socket;
use HttpUtils; use HttpUtils;
use Encode; use Encode;
no if $] >= 5.017011, warnings => 'experimental::smartmatch'; no if $] >= 5.017011, warnings => 'experimental';
no warnings "all"; no warnings "all";
@ -546,7 +546,7 @@ sub ENIGMA2_Set($@) {
my $commandKeys = join( my $commandKeys = join(
" ", " ",
sort keys %{ keys %{
ENIGMA2_GetRemotecontrolCommand("GetRemotecontrolCommands") ENIGMA2_GetRemotecontrolCommand("GetRemotecontrolCommands")
} }
); );

2
fhem/FHEM/70_ONKYO_AVR.pm
View File

@ -39,8 +39,6 @@ use Data::Dumper;
$Data::Dumper::Sortkeys = 1; $Data::Dumper::Sortkeys = 1;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
sub ONKYO_AVR_Set($$$); sub ONKYO_AVR_Set($$$);
sub ONKYO_AVR_Get($$$); sub ONKYO_AVR_Get($$$);
sub ONKYO_AVR_Define($$$); sub ONKYO_AVR_Define($$$);

2
fhem/FHEM/70_Pushover.pm
View File

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

2
fhem/FHEM/71_ONKYO_AVR_ZONE.pm
View File

@ -34,8 +34,6 @@ use Data::Dumper;
$Data::Dumper::Sortkeys = 1; $Data::Dumper::Sortkeys = 1;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
sub ONKYO_AVR_ZONE_Set($$$); sub ONKYO_AVR_ZONE_Set($$$);
sub ONKYO_AVR_ZONE_Get($$$); sub ONKYO_AVR_ZONE_Get($$$);
sub ONKYO_AVR_ZONE_Define($$$); sub ONKYO_AVR_ZONE_Define($$$);

6
fhem/FHEM/75_MSG.pm
View File

@ -38,7 +38,7 @@ use warnings;
use Time::HiRes qw(time); use Time::HiRes qw(time);
use Data::Dumper; use Data::Dumper;
no if $] >= 5.017011, warnings => 'experimental::smartmatch'; no if $] >= 5.017011, warnings => 'experimental';
sub CommandMsg($$;$$); sub CommandMsg($$;$$);
@ -2369,8 +2369,8 @@ s/^[\s\t]*([!]?(([A-Za-z0-9%+._-])*@([%+a-z0-9A-Z.-]+))[\w,@.!|:]*)[\s\t]+//
=pod =pod
=item command =item command
=item summary dynamic routing of messages to FHEM devices and modules (push, e-mail, screen, audio) =item summary dynamic routing of messages to FHEM devices and modules
=item summary_DE dynamisches Routing f&uuml;r Nachrichten an FHEM Ger&auml;te und Module (Push, E-Mail, Bildschirm, Audio) =item summary_DE dynamisches Routing f&uuml;r Nachrichten an FHEM Ger&auml;te und Module
=begin html =begin html
<a name="MSG"></a> <a name="MSG"></a>

2
fhem/FHEM/75_msgConfig.pm
View File

@ -37,8 +37,6 @@ use strict;
use warnings; use warnings;
use Data::Dumper; use Data::Dumper;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
sub msgConfig_Set($@); sub msgConfig_Set($@);
sub msgConfig_Get($@); sub msgConfig_Get($@);
sub msgConfig_Define($$); sub msgConfig_Define($$);

2
fhem/FHEM/98_GEOFANCY.pm
View File

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

2
fhem/FHEM/RESIDENTStk.pm
View File

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