File 0001-Don-t-check-current-display-for-extensions... of Package perl-OpenGL

Overview Repositories Revisions Requests Users Attributes Meta

File 0001-Don-t-check-current-display-for-extensions.patch of Package perl-OpenGL

diff --git a/Makefile.PL b/Makefile.PL
index d32205d..2a0ac3e 100755
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -601,9 +601,9 @@ my $build_config =
   {
     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,6 +824,7 @@ sub get_extensions
     print "GLUT not found\n";
   }
 
+=cut
   # Platform-specific makefiles for glversion
   my $make_ver;
   if ($IS_STRAWBERRY)
@@ -882,6 +883,9 @@ 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
+  use Config;
+  my $gldata = { };
 
   # Parse glext_procs.h file
   open GLEXT, "glext_procs.h" or die "get_extensions: could not open glext_procs.h: $!\n";
@@ -900,11 +904,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})
   {

Places

File 0001-Don-t-check-current-display-for-extensions.patch of Package perl-OpenGL

Places