paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 01:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed parsing of URIs without paths.

Browse Source
This commit is contained in:
michael 2003-05-17 21:48:52 +00:00
parent c8a141e894
commit 0067cfc9a6
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/base/netdb/uriparser.pp
View File

@ -198,7 +198,9 @@ begin
else if s[i] in [':', '@'] then else if s[i] in [':', '@'] then
break; break;
if LastValidPos > 0 then if (LastValidPos > 0) and
(Length(S)>LastValidPos) and
(S[LastValidPos+1]<>'/') then
begin begin
Result.Path := Unescape(Copy(s, LastValidPos, Length(s))); Result.Path := Unescape(Copy(s, LastValidPos, Length(s)));
s := Copy(s, 1, LastValidPos - 1); s := Copy(s, 1, LastValidPos - 1);