progs/vp: Fix memory leak in vp-tris.c.

(cherry picked from commit 760cf71572a071ce43da576ebfeff4a8099150bc)

diff --git a/progs/vp/vp-tris.c b/progs/vp/vp-tris.c
index 1356242..29cd027 100644 (file)
--- a/progs/vp/vp-tris.c
+++ b/progs/vp/vp-tris.c
@@ -99,9 +99,11 @@ static void Init( void )
    sz = (GLuint) fread(buf, 1, sizeof(buf), f);
    if (!feof(f)) {
       fprintf(stderr, "file too long\n");
+      fclose(f);
       exit(1);
    }
 
+   fclose(f);
    fprintf(stderr, "%.*s\n", sz, buf);
 
    if (strncmp( buf, "!!VP", 4 ) == 0) {