From 05beda9db179544d8452eb085ceb04d311b63e7a Mon Sep 17 00:00:00 2001
From: justme1968 <justme1968@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 28 Jun 2013 21:27:08 +0000
Subject: [PATCH] max bug fix

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@3356 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/31_HUEDevice.pm | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/31_HUEDevice.pm b/fhem/FHEM/31_HUEDevice.pm
index 946121cc9..cfe6728d1 100644
--- a/fhem/FHEM/31_HUEDevice.pm
+++ b/fhem/FHEM/31_HUEDevice.pm
@@ -190,6 +190,15 @@ sub HUEDevice_Undefine($$)
   return undef;
 }
 
+sub
+max($@)
+{  
+  my ($max, @vars) = @_; 
+  for (@vars) {
+    $max = $_ if $_ > $max;
+  }
+  return $max;
+}  
 sub
 HUEDevice_SetParam($$@)
 {
@@ -266,7 +275,7 @@ HUEDevice_SetParam($$@)
       #$y = 1 if( $y > 1 );
       $Y = 1 if( $Y > 1 );
 
-      my $bri  = max($r,max($g,$b));
+      my $bri  = max($r,$g,$b);
       #my $bri  = $Y;
 
     $obj->{'on'}  = JSON::true;
@@ -395,7 +404,7 @@ xyYtorgb($$$)
     if( $X > 1
         || $Y > 1
         || $Z > 1 ) {
-      my $f = max($X,max($Y,$Z));
+      my $f = max($X,$Y,$Z);
       $X /= $f;
       $Y /= $f;
       $Z /= $f;
@@ -409,7 +418,7 @@ xyYtorgb($$$)
     if( $r > 1
         || $g > 1
         || $b > 1 ) {
-      my $f = max($r,max($g,$b));
+      my $f = max($r,$g,$b);
       $r /= $f;
       $g /= $f;
       $b /= $f;