[GB.DESKTOP]

* 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

View file

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