MAX: fix perl warning

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@2798 2b470e98-0d58-463d-a4d8-8e2adae1ed80
2013-02-24 17:16:19 +00:00
parent 893577f48f
commit 05046e1ff7
1 changed files with 1 additions and 1 deletions
--- 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" );
 }