From b2fd45b8bf12728033e11d5c02ca8744d72ee129 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 15 Feb 2017 11:42:20 +0000
Subject: [PATCH] lcl: TJSONPropStorage, do not split at underscore

git-svn-id: trunk@54163 -
---
 lcl/jsonpropstorage.pas | 1 -
 1 file changed, 1 deletion(-)

diff --git a/lcl/jsonpropstorage.pas b/lcl/jsonpropstorage.pas
index aeea107e71..bbc57542ec 100644
--- a/lcl/jsonpropstorage.pas
+++ b/lcl/jsonpropstorage.pas
@@ -109,7 +109,6 @@ end;
 function TCustomJSONPropStorage.FixPath(const APath: String): String;
 begin
   Result:=StringReplace(APath,'.','/',[rfReplaceAll]);
-  Result:=StringReplace(APath,'_','/',[rfReplaceAll]);
 end;
 
 procedure TCustomJSONPropStorage.StorageNeeded(ReadOnly: Boolean);