2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-03 01:25:12 +00:00

ENIGMA2, ONKYO_AVR, PHTV, Pushover, GEOFANCY, RESIDENTStk, msg: suppress warning “Smartmatch is experimental”

git-svn-id: https://svn.fhem.de/fhem/trunk@9380 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski 2015-10-05 08:04:23 +00:00
parent b08ebbaa33
commit 308bbd6f45
7 changed files with 20 additions and 3 deletions

View File

@ -58,6 +58,8 @@ use IO::Socket;
use HttpUtils; use HttpUtils;
use Encode; use Encode;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
no warnings "all"; no warnings "all";
sub ENIGMA2_Set($@); sub ENIGMA2_Set($@);

View File

@ -45,6 +45,8 @@ use Time::HiRes qw(usleep);
use Symbol qw<qualify_to_ref>; use Symbol qw<qualify_to_ref>;
use Data::Dumper; use Data::Dumper;
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_GetStatus($;$); sub ONKYO_AVR_GetStatus($;$);

View File

@ -53,6 +53,8 @@ use Color;
use SetExtensions; use SetExtensions;
use Encode; use Encode;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
sub PHTV_Set($@); sub PHTV_Set($@);
sub PHTV_Get($@); sub PHTV_Get($@);
sub PHTV_GetStatus($;$); sub PHTV_GetStatus($;$);

View File

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

View File

@ -45,6 +45,8 @@ 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($$);
@ -491,14 +493,17 @@ sub GEOFANCY_ISO8601UTCtoLocal ($) {
GEOFANCY GEOFANCY
</h3> </h3>
<ul> <ul>
<li>Provides webhook receiver for geofencing via the following iOS apps:<br> <li>Provides webhook receiver for geofencing, e.g. via the following apps:<br>
<br> <br>
</li> </li>
<li> <li>
<a href="https://itunes.apple.com/de/app/geofency-time-tracking-automatic/id615538630?l=en&amp;mt=8">Geofency</a> <a href="https://itunes.apple.com/de/app/geofency-time-tracking-automatic/id615538630?l=en&amp;mt=8">Geofency (iOS - the original app)</a>
</li> </li>
<li> <li>
<a href="https://itunes.apple.com/de/app/geofancy/id725198453?l=en&amp;mt=8">Geofancy</a> <a href="https://itunes.apple.com/de/app/geofancy/id725198453?l=en&amp;mt=8">Geofancy (iOS)</a>
</li>
<li>
<a href="http://www.egigeozone.de">EgiGeoZone (Android)</a>
</li> </li>
<li> <li>
<p> <p>

View File

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

View File

@ -37,6 +37,8 @@ use strict;
use warnings; use warnings;
use Time::HiRes qw(time); use Time::HiRes qw(time);
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
sub CommandMsg($$;$$); sub CommandMsg($$;$$);
######################################## ########################################