From da61210e13e9f9bd3ac86e76618da23368d070c7 Mon Sep 17 00:00:00 2001
From: Ed J <mohawk2@users.noreply.github.com>
Date: Mon, 16 Sep 2024 01:57:31 +0100
Subject: [PATCH] croak if auto-glewInit fails - fix #43 fix #36

---
 utils/generate-XS.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/utils/generate-XS.pl b/utils/generate-XS.pl
index 5185d35..47050f3 100644
--- 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