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

[GB.DESKTOP]

Browse source 
* BUG: Out of bound on a test on suffix corrected


git-svn-id: svn://localhost/gambas/trunk@5285 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Fabien Bodard 2012-11-02 13:56:12 +00:00
parent e5446e3eae
commit 81941d7cb3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gb.desktop/src/gb.desktop/.src/DesktopMime.class
View file

@ -206,9 +206,9 @@ Static Private Function FindByExt(sFile As String) As DesktopMime[]
If $cHash.Exist(s) Then If $cHash.Exist(s) Then
i = $cHash[s] i = $cHash[s]
Repeat Repeat
If Left($aMimesSuffix[i].Pattern) <> s Then Break
If sExt = $aMimesSuffix[i].Pattern Then aMInfo.Add($aMimesSuffix[i]) If sExt = $aMimesSuffix[i].Pattern Then aMInfo.Add($aMimesSuffix[i])
Inc i Inc i
If Left($aMimesSuffix[i].Pattern) <> s Then Break
Until i > $aMimesSuffix.Max Until i > $aMimesSuffix.Max
Endif Endif
If Not InStr(sExt, ".") Then Break If Not InStr(sExt, ".") Then Break