2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-01 01:09:47 +00:00

98_RandomTimer: supress warning 'experimental::smartmatch'

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

View File

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