FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-20 19:36:02 +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;
require RESIDENTStk;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
no if $] >= 5.017011, warnings => 'experimental';
sub RESIDENTS_Set($@);
sub RESIDENTS_Define($$);
@ -1583,8 +1583,8 @@ sub RESIDENTS_UpdateReadings (@) {
=pod
=item helper
=item summary combines <a href="#ROOMMATE">ROOMMATE</a> and <a href="#GUEST">GUEST</a> 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 combines ROOMMATE and GUEST devices to a residential community
=item summary_de fasst ROOMMATE und GUEST Ger&auml;te zu einer Wohngemeinschaft zusammen
=begin html
<p>

2
fhem/FHEM/20_GUEST.pm
View File

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

2
fhem/FHEM/20_ROOMMATE.pm
View File

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

2
fhem/FHEM/50_HP1000.pm
View File

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

8
fhem/FHEM/70_ENIGMA2.pm
View File

@ -35,7 +35,7 @@ use IO::Socket;
use HttpUtils;
use Encode;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
no if $] >= 5.017011, warnings => 'experimental';
no warnings "all";
@ -546,12 +546,12 @@ sub ENIGMA2_Set($@) {
my $commandKeys = join(
" ",
sort keys %{
keys %{
ENIGMA2_GetRemotecontrolCommand("GetRemotecontrolCommands")
}
);
if ( !defined( $a[2] ) ) {
return "No argument given, choose one of" . $commandKeys;
return "No argument given, choose one of " . $commandKeys;
}
my $request = ENIGMA2_GetRemotecontrolCommand( uc( $a[2] ) );
@ -575,7 +575,7 @@ sub ENIGMA2_Set($@) {
return
"Unknown argument "
. $a[2]
. ", choose one of"
. ", choose one of "
. $commandKeys;
}

2
fhem/FHEM/70_ONKYO_AVR.pm
View File

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

2
fhem/FHEM/70_Pushover.pm
View File

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

2
fhem/FHEM/75_msgConfig.pm
View File

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

2
fhem/FHEM/98_GEOFANCY.pm
View File

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