* Fix (adapted) from bug #23372

git-svn-id: trunk@23051 -
2025-09-23 02:50:44 +02:00 · 2012-11-23 20:00:58 +00:00 · 2012-11-23 20:00:58 +00:00 · 8e67bf6e15
commit 8e67bf6e15
parent d4ac343e3a
1 changed files with 3 additions and 1 deletions
--- a/packages/fcl-web/src/base/fphttpclient.pp
+++ b/packages/fcl-web/src/base/fphttpclient.pp
@ -289,7 +289,9 @@ Var

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