paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-03 04:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix (adapted) from bug #23372

Browse Source 
git-svn-id: trunk@23051 -
This commit is contained in:
michael 2012-11-23 20:00:58 +00:00
parent d4ac343e3a
commit 8e67bf6e15
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-web/src/base/fphttpclient.pp
View File

@ -289,7 +289,9 @@ Var
begin begin
D:=URI.Path; D:=URI.Path;
If (D[1]<>'/') then If Length(D) = 0 then
D := '/'
else If (D[1]<>'/') then
D:='/'+D; D:='/'+D;
If (D[Length(D)]<>'/') then If (D[Length(D)]<>'/') then
D:=D+'/'; D:=D+'/';