From 05046e1ff78d6dedd6c02ea1d3b9f01f14796675 Mon Sep 17 00:00:00 2001 From: mgehre Date: Sun, 24 Feb 2013 17:16:19 +0000 Subject: [PATCH] MAX: fix perl warning git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@2798 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- FHEM/10_MAX.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/FHEM/10_MAX.pm b/FHEM/10_MAX.pm index b3679e29e..dd171b450 100755 --- a/FHEM/10_MAX.pm +++ b/FHEM/10_MAX.pm @@ -224,7 +224,7 @@ MAX_ParseWeekProfile(@) { sub MAX_WakeUp($) { - my $hash = @_[0]; + my $hash = $_[0]; #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" ); }