MAX: fix perl warning

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@2798 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
mgehre 2013-02-24 17:16:19 +00:00
parent db050db38c
commit f2613c3c82

View File

@ -224,7 +224,7 @@ MAX_ParseWeekProfile(@) {
sub sub
MAX_WakeUp($) MAX_WakeUp($)
{ {
my $hash = @_[0]; my $hash = $_[0];
#3F corresponds to 31 seconds wakeup (so its probably the lower 5 bits) #3F corresponds to 31 seconds wakeup (so its probably the lower 5 bits)
return ($hash->{IODev}{Send})->($hash->{IODev},"WakeUp",$hash->{addr}, "3F", callbackParam => "31" ); return ($hash->{IODev}{Send})->($hash->{IODev},"WakeUp",$hash->{addr}, "3F", callbackParam => "31" );
} }