Update _done_glewInit only on success

Perl-GPU · Feb 20, 2017 · 7ebeeae · 7ebeeae
1 parent 7a81601
commit 7ebeeae
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/Modern.xs b/Modern.xs
@@ -57,7 +57,8 @@ CODE:
         warn("glewInit() called %dX already", _done_glewInit);
     }
     RETVAL = glewInit();
-    _done_glewInit++;
+    if ( !RETVAL )
+        _done_glewInit++;
 OUTPUT:
     RETVAL
 

diff --git a/utils/generate-XS.pl b/utils/generate-XS.pl
@@ -307,8 +307,7 @@ sub generate_glew_xs {
 CODE:
     if ( ! _done_glewInit ) {
         glewExperimental = GL_TRUE;
-        glewInit();
-        _done_glewInit++;
+        glewInit() || _done_glewInit++;
     }
 XS
         if ( $item->{glewtype} eq 'fun' and $glewImpl ) {