1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
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})
{
|