From fe103bae3f941e6d2def365ef2d026b96bc6410f Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 26 Jun 2015 09:45:17 +0000
Subject: [PATCH] 01_FHEMWEB.pm: avoid crash for certain perl version (Forum
 #38523)

git-svn-id: https://svn.fhem.de/fhem/trunk@8833 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/01_FHEMWEB.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/01_FHEMWEB.pm b/fhem/FHEM/01_FHEMWEB.pm
index 29fa16b2e..af529bdfa 100755
--- a/fhem/FHEM/01_FHEMWEB.pm
+++ b/fhem/FHEM/01_FHEMWEB.pm
@@ -1025,8 +1025,8 @@ FW_detailSelect(@)
 {
   my ($d, $cmd, $list, $param) = @_;
   return if(!$list || $FW_hiddenroom{input});
-  my @al = map { s/:.*//;$_ } split(" ", $list);
-  @al = sort keys { map { $_ => 1 } @al }; # remove duplicate items in list
+  my %al = map { s/:.*//;$_ => 1 } split(" ", $list);
+  my @al = sort keys %al; # remove duplicate items in list
 
   my $selEl = (defined($al[0]) ? $al[0] : " ");
   $selEl = $1 if($list =~ m/([^ ]*):slider,/); # promote a slider if available