From 233485fe5091bbab6948254c6b1a7d7d508aeaf8 Mon Sep 17 00:00:00 2001 From: justme-1968 Date: Tue, 17 Dec 2013 10:18:32 +0000 Subject: [PATCH] reapplied 'fix for '\(255 x @channels)' expanding to a string instead of an array' fix git-svn-id: https://svn.fhem.de/fhem/trunk@4407 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/Color.pm | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/fhem/FHEM/Color.pm b/fhem/FHEM/Color.pm index 94a5f4885..8f975ae18 100644 --- a/fhem/FHEM/Color.pm +++ b/fhem/FHEM/Color.pm @@ -131,15 +131,14 @@ ChannelsToBrightness(@) { $max = $value if ($max < $value); } - return { - bri => 0, - channels => \(255 x @channels), - } unless ($max > 0); - my @bri = (); - my $norm = 255/$max; - foreach my $value (@channels) { - push @bri,int($value*$norm); + if( $max == 0) { + @bri = (0) x @channels; + } else { + my $norm = 255/$max; + foreach my $value (@channels) { + push @bri,int($value*$norm); + } } return {