MAX: fix perl warning

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@2798 2b470e98-0d58-463d-a4d8-8e2adae1ed80
2013-02-24 17:16:19 +00:00
parent 5a315124e2
commit eddce98bd2
1 changed files with 1 additions and 1 deletions
--- 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" );
 }