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

98_RandomTimer: supress warning 'experimental::smartmatch'

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11188 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
dietmar63 2016-04-04 19:41:03 +00:00
parent 87b7b5d9a5
commit 970f6e5962
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/FHEM/98_RandomTimer.pm
View File

@ -28,6 +28,8 @@ package main;
use strict; use strict;
use warnings; use warnings;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
# use IO::Socket; # use IO::Socket;
use Time::HiRes qw(gettimeofday); use Time::HiRes qw(gettimeofday);
use Time::Local 'timelocal_nocheck'; use Time::Local 'timelocal_nocheck';
@ -219,7 +221,7 @@ sub RandomTimer_stopTimeReached($) {
return ( time()>$hash->{helper}{stopTime} ); return ( time()>$hash->{helper}{stopTime} );
} }
######################################################################## ########################################################################
sub RandomTimer_setActive() { sub RandomTimer_setActive($$) {
my ($hash, $value) = @_; my ($hash, $value) = @_;
$hash->{helper}{active} = $value; $hash->{helper}{active} = $value;
readingsSingleUpdate ($hash, "active", $value, 1); readingsSingleUpdate ($hash, "active", $value, 1);