croak if auto-glewInit fails - fix #43 fix #36

Perl-GPU · Sep 16, 2024 · da61210 · da61210
1 parent cc91668
commit da61210
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/utils/generate-XS.pl b/utils/generate-XS.pl
@@ -323,8 +323,12 @@ sub generate_glew_xs {
         my $res = $decl . <<XS;
 CODE:
     if ( ! _done_glewInit ) {
+        GLenum err;
         glewExperimental = GL_TRUE;
-        glewInit() || _done_glewInit++;
+        err = glewInit();
+        if (GLEW_OK != err)
+          croak("Error: %s", glewGetErrorString(err));
+        _done_glewInit++;
     }
 $error_check
 XS