luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Version control: Fix handling of metadata of files not stored in the project. No infinite recursion anymore.

Browse source 
[DEVELOPMENT ENVIRONMENT]
* BUG: Version control: Fix handling of metadata of files not stored in the project. No infinite recursion anymore.
This commit is contained in:
gambas 2017-10-21 21:15:12 +02:00
parent 0b96e3fb64
commit 9d3ec8d46b
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
app/src/gambas3/.src/Project.module
View file

@ -6458,9 +6458,9 @@ Public Sub HasFlag(sPath As String, iFlag As Integer, Optional bRec As Boolean)
If Not $cPathFlag Then Return
If Not sPath Then Return
If File.IsRelative(sPath) Then sPath = Project.Dir &/ sPath
If Not IsProjectPath(sPath) Then Return
If BTst($cPathFlag[sPath], iFlag) Then Return True
If Not bRec Then Return
If (sPath &/ "/") = (Project.Dir &/ "/") Then Return
Return HasFlag(File.Dir(sPath), iFlag, bRec)
End