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,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

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") {