From 81941d7cb30c4e9f8d9ca8190145c41d4beb05a8 Mon Sep 17 00:00:00 2001 From: Fabien Bodard Date: Fri, 2 Nov 2012 13:56:12 +0000 Subject: [PATCH] [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 --- gb.desktop/src/gb.desktop/.src/DesktopMime.class | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gb.desktop/src/gb.desktop/.src/DesktopMime.class b/gb.desktop/src/gb.desktop/.src/DesktopMime.class index 7caad3f10..c529e4348 100644 --- a/gb.desktop/src/gb.desktop/.src/DesktopMime.class +++ b/gb.desktop/src/gb.desktop/.src/DesktopMime.class @@ -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