gentoo-overlay/dev-perl/OpenGL/files/OpenGL-0.700.0-no-display.patch

diff -urN OpenGL-0.70.orig/Makefile.PL OpenGL-0.70/Makefile.PL
--- OpenGL-0.70.orig/Makefile.PL	2016-10-08 21:11:14.000000000 +0200
+++ OpenGL-0.70/Makefile.PL	2016-12-24 21:08:08.674243142 +0100
@@ -601,9 +601,9 @@
   {
     FILES =>
       "Config.pm ".
-      "utils/glversion.txt ".
-      "utils/glversion$Config{exe_ext} ".
-      "utils/glversion$Config{obj_ext}"
+      "utils/glversion.txt "
+      #"utils/glversion$Config{exe_ext} ".
+      #"utils/glversion$Config{obj_ext}"
   }
 };
 
@@ -824,65 +824,6 @@
     print "GLUT not found\n";
   }
 
-  # Platform-specific makefiles for glversion
-  my $make_ver;
-  if ($IS_STRAWBERRY)
-  {
-    $make_ver = "&strawberry.bat";
-    print "strawberry glversion: '$make_ver'\n" if $verbose>1;
-  }
-  elsif ($IS_MINGW)
-  {
-    $make_ver = "&mingw.bat";
-    print "mingw glversion: '$make_ver'\n" if $verbose>1;
-  }
-  elsif ($IS_W32API)
-  {
-    $make_ver = ";make -f Makefile.cygwin " .  (length($lib) ? "GLUT_LIB=$lib " : "") . (length($def) ? "GLUT_DEF=$def " : "");
-    print "cygwin glversion: '$make_ver'\n" if $verbose>1;
-  }
-  elsif ($^O eq 'MSWin32')
-  {
-    $make_ver = '&nmake -f makefile.mak ' . (length($def) ? "GLUT_DEF=$def " : "");
-    print "MSWin32 glversion: '$make_ver'\n" if $verbose>1;
-  }
-  elsif ($^O eq 'darwin')
-  {
-    $make_ver = ";make -f Makefile.macosx " .  (length($lib) ? "GLUT_LIB=$lib " : "") . (length($def) ? "GLUT_DEF=$def " : "");
-    print "MacOSX glversion: '$make_ver'\n" if $verbose>1;
-  }
-  else
-  {
-    if ($ENV{TERM} ne 'xterm')
-    {
-      print "\nIn order to test your GPU's capabilities, run this make under an X11 shell\n\n";
-    }
-
-    $make_ver = ";make -f Makefile " .  (length($lib) ? "GLUT_LIB=$lib " : "") . (length($def) ? "GLUT_DEF=$def " : "");
-    print "glversion: '$make_ver'\n" if $verbose>1;
-  }
-  my $exec = 'cd utils'."$make_ver clean".$make_ver;
-  print "glversion: $exec\n" if ($verbose);
-  my $stat = `$exec`;
-  print "\n$stat\n\n" if ($verbose);
-  unlink "utils/freeglut.dll" or die "could not remove temporary freeglut: $!" if -f "utils/freeglut.dll";
-
-  # Parse glversion.txt file
-  open GLDATA, $glv_file or die "get_extensions: could not open $glv_file: $!\n";
-  my $gldata = {};
-  my @gldata = <GLDATA>;
-  close(GLDATA);
-
-  foreach my $line (@gldata)
-  {
-    $line =~ s|[\r\n]+||;
-    my($key,$val) = split('=',$line);
-    $gldata->{$key} = $val;
-  }
-  die "get_extensions: no extensions found in $glv_file\n" if !keys %$gldata;
-
-  print "This looks like OpenGL Version: $gldata->{VERSION}\n";
-
   # Parse glext_procs.h file
   open GLEXT, "glext_procs.h" or die "get_extensions: could not open glext_procs.h: $!\n";
   my @lines = <GLEXT>;
@@ -896,14 +837,11 @@
     next if ($ext =~ m|^GL_VERSION_|);
     $no_ext->{$ext}++;
   }
-
+  use Config;
+  my $gldata = { };
 
   # Create gl_exclude.h
   die "Unable to write to $exc_file\n" if (!open(GLEXC,">$exc_file"));
-  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 ";
 
   # Fix GLUT flags based on results
   if ($gldata->{FREEGLUT})