From eddce98bd29a72cab09a8600fdaec60285c5adaa 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: svn://svn.code.sf.net/p/fhem/code/trunk@2798 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/10_MAX.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fhem/FHEM/10_MAX.pm b/fhem/FHEM/10_MAX.pm index b3679e29e..dd171b450 100755 --- a/fhem/FHEM/10_MAX.pm +++ b/fhem/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" ); }