From f773235183eca25a16a1cea7b2412c315bec6361 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Mon, 3 Jul 2017 08:33:25 +0000
Subject: [PATCH] fhem.pl: list: do not mess with the upper/lowercase of hash
 names (Forum #73828)

git-svn-id: https://svn.fhem.de/fhem/trunk@14634 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED | 1 +
 fhem/fhem.pl | 3 +--
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index 9b3d9ffd5..aa66a8e9c 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - bugfix:  list: do not change the upper casing of hashes (Forum #73828)
   - bugfix:  71_YAMAHA_NP: Prevent directPlay from starting netradio stream
              several times in slow internet connections 
   - feature: 93_DbLog: V2.18.2, new command configCheck for MySQL, PostgreSQL
diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 5b800977e..2232d75f3 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -2246,8 +2246,7 @@ PrintHash($$)
           $str .= sprintf("%*s %-10s %s\n", $lev," ",$c, $h->{$c}{NAME});
 
         } else {
-          $sstr .= sprintf("%*s %s:\n",
-                          $lev, " ", uc(substr($c,0,1)).lc(substr($c,1)));
+          $sstr .= sprintf("%*s %s:\n", $lev, " ", $c);
           $sstr .= PrintHash($h->{$c}, $lev+2);
         }
       } elsif(ref($h->{$c}) eq "ARRAY") {