fix little bug from change packages
This commit is contained in:
parent
d1638cf310
commit
dd217a5243
@ -32,6 +32,7 @@ use warnings;
|
||||
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
|
||||
use Time::HiRes qw(gettimeofday);
|
||||
use Time::Local 'timelocal_nocheck';
|
||||
use GPUtils qw(GP_Import GP_Export);
|
||||
|
||||
## Import der FHEM Funktionen
|
||||
#-- Run before package compilation
|
||||
@ -52,7 +53,13 @@ BEGIN {
|
||||
readingFnAttributes
|
||||
AttrVal
|
||||
ReadingsVal
|
||||
IsDisabled)
|
||||
featurelevel
|
||||
Value
|
||||
FmtDateTime
|
||||
strftime
|
||||
max
|
||||
stacktrace
|
||||
GetTimeSpec )
|
||||
);
|
||||
}
|
||||
|
||||
@ -82,7 +89,8 @@ sub Initialize {
|
||||
sub Define {
|
||||
my ( $hash, $def ) = @_;
|
||||
|
||||
RemoveInternalTimer($hash);
|
||||
main::RemoveInternalTimer($hash);
|
||||
|
||||
my ( $name, $type, $timespec_start, $device, $timespec_stop, $timeToSwitch,
|
||||
$variation )
|
||||
= split( "[ \t][ \t]*", $def );
|
||||
@ -679,8 +687,8 @@ sub InternalTimer {
|
||||
################################################################################
|
||||
sub RemoveInternalTimer {
|
||||
my ( $modifier, $hash ) = @_;
|
||||
|
||||
my $timerName = "$hash->{NAME}_$modifier";
|
||||
|
||||
my $myHash = $hash->{TIMER}{$timerName};
|
||||
if ( defined($myHash) ) {
|
||||
delete $hash->{TIMER}{$timerName};
|
||||
|
Loading…
x
Reference in New Issue
Block a user