paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-21 06:59:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

pas2js: fixed globbing * ignoring . and ..

Browse Source 
git-svn-id: trunk@37765 -
This commit is contained in:
Mattias Gaertner 2017-12-19 11:46:35 +00:00
parent 88a9d07820
commit effbafabd2
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
utils/pas2js/pas2jsfileutils.pp
View File

@ -494,6 +494,7 @@ begin
Path:=LeftStr(Mask,p-1); Path:=LeftStr(Mask,p-1);
if FindFirst(Path,faAnyFile,Info)=0 then begin if FindFirst(Path,faAnyFile,Info)=0 then begin
repeat repeat
if (Info.Name='') or (Info.Name='.') or (Info.Name='..') then continue;
Filename:=ExtractFilePath(Path)+Info.Name; Filename:=ExtractFilePath(Path)+Info.Name;
if p>length(Mask) then begin if p>length(Mask) then begin
// e.g. /path/unit*.pas // e.g. /path/unit*.pas