https://src.fedoraproject.org/rpms/perl-OpenGL-GLUT/blob/f39/f/OpenGL-GLUT-0.72-Don-t-check-current-display-for-extensions.patch
--- a/Makefile.PL.orig
+++ b/Makefile.PL
@@ -567,6 +567,7 @@ my $build_config =
 {
   'NAME'	=> 'OpenGL::GLUT',
   'VERSION_FROM'=> 'lib/OpenGL/GLUT.pm',
+  'PM' 	=> { 'lib/OpenGL/GLUT.pm' => 'blib/lib/OpenGL/GLUT.pm' },
   PREREQ_PM => {
     'OpenGL' => '0.70',
   },
@@ -604,9 +605,9 @@ my $build_config =
   {
     FILES =>
       "utils/glversion.txt ".
-      "gl_exclude.h ".
-      "utils/glversion$Config{exe_ext} ".
-      "utils/glversion$Config{obj_ext}"
+      "gl_exclude.h "
+      #"utils/glversion$Config{exe_ext} ".
+      #"utils/glversion$Config{obj_ext}"
   }
 };
 
@@ -825,6 +826,7 @@ sub get_extensions
     print "GLUT not found\n";
   }
 
+=cut
   # Platform-specific makefiles for glversion
   my $make_ver;
   if ($IS_STRAWBERRY)
@@ -883,6 +885,8 @@ sub get_extensions
   die "get_extensions: no extensions found in $glv_file\n" if !keys %$gldata;
 
   print "This looks like OpenGL Version: $gldata->{VERSION}\n";
+=cut
+  my $gldata = { };
 
   # Parse glext_procs.h file
   open GLEXT, "glext_procs.h" or die "get_extensions: could not open glext_procs.h: $!\n";
@@ -901,11 +905,12 @@ sub get_extensions
 
   # Create gl_exclude.h
   die "Unable to write to $exc_file\n" if (!open(GLEXC,">$exc_file"));
+=cut
   print GLEXC "// OpenGL Extension Exclusions - may be modified before building.\n";
   print GLEXC "//\n";
   print GLEXC "// Generated for ".$gldata->{VENDOR}.", ".$gldata->{RENDERER}."\n";
   print GLEXC "// OpenGL v".$gldata->{VERSION}.", using ";
-
+=cut
   # Fix GLUT flags based on results
   if ($gldata->{FREEGLUT})
   {