paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 04:30:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Update file fpwebfile.pp

Browse Source
This commit is contained in:
Kevin Jesshope 2023-01-04 06:36:31 +00:00 committed by Michael Van Canneyt
parent cee45ea6fc
commit 05f5e9ad12
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-web/src/base/fpwebfile.pp
View File

@ -346,7 +346,7 @@ begin
if (BaseDir='') then
BaseDir:=ExtractFilePath(Paramstr(0))
end;
FN:=ExtractRelativepath(BaseDir,aFileName);
FN:=ExtractRelativepath(BaseDir,FN);
Result:=Pos('..'+PathDelim,FN)=0;
end;