Disable glutCloseFunc() to work-around segfaults.

A real fix will come with the in progress update to the Perl OpenGL module.

Author: devel-chm

OpenGL.pm

@@ -11,7 +11,7 @@ require DynaLoader;
 
 use Carp;
 
-$VERSION = '0.67';
+$VERSION = '0.6701';
 $BUILD_VERSION = $XS_VERSION = $VERSION;
 $VERSION = eval($VERSION);
 

Release_Notes

@@ -1,3 +1,20 @@
++------------------------------------------------------------------------+
+|                  OpenGL-0.6701
++------------------------------------------------------------------------+
+
+General Notes:
+
+ * This is a work-around release to work around a problem with
+   segfaults during the glutCloseFunc() processing.  Until a
+   real fix is found, the feature has been disabled.
+
+Highlights:
+
+  * glutCloseFunc() feature has been disabled.  A warning is given
+    the first time the close handler is called.
+
+
+
 +------------------------------------------------------------------------+
 |                  OpenGL-0.67
 +------------------------------------------------------------------------+

gl_exclude.h

@@ -27,6 +27,7 @@
 #endif
 
 static int _done_glutInit = 0;
+static int _done_glutCloseFunc_warn = 0;
 
 
 /* Macros for GLUT callback and handler declarations */
@@ -1476,9 +1477,8 @@ glutCloseFunc(handler=0, ...)
 	SV *	handler
 	CODE:
         {
-#if defined HAVE_FREEGLUT
-		decl_gwh_xs(Close)
-#elif defined HAVE_AGL_GLUT
-		decl_gwh_xs(WMClose)
-#endif
+	    if (_done_glutCloseFunc_warn == 0) {
+	        warn("glutCloseFunc: not implemented\n");
+	        _done_glutCloseFunc_warn++;
+            }
         }