From effbafabd293ffc08fb411f9f786c4683b0d39e3 Mon Sep 17 00:00:00 2001
From: Mattias Gaertner <nc-gaertnma@netcologne.de>
Date: Tue, 19 Dec 2017 11:46:35 +0000
Subject: [PATCH] pas2js: fixed globbing * ignoring . and ..

git-svn-id: trunk@37765 -
---
 utils/pas2js/pas2jsfileutils.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/utils/pas2js/pas2jsfileutils.pp b/utils/pas2js/pas2jsfileutils.pp
index 64fa0c0ab4..d4939cf874 100644
--- a/utils/pas2js/pas2jsfileutils.pp
+++ b/utils/pas2js/pas2jsfileutils.pp
@@ -494,6 +494,7 @@ begin
       Path:=LeftStr(Mask,p-1);
       if FindFirst(Path,faAnyFile,Info)=0 then begin
         repeat
+          if (Info.Name='') or (Info.Name='.') or (Info.Name='..') then continue;
           Filename:=ExtractFilePath(Path)+Info.Name;
           if p>length(Mask) then begin
             // e.g. /path/unit*.pas