Fix GLEW_ variable accessor code generation

devel-chm · devel-chm · commit ffc4d22d1095 · 2017-02-20T09:19:18.000-05:00
diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP
@@ -16,3 +16,4 @@ gdm.diff
 ^MYMETA.*
 \.pm\.bak$
 \.inc$
+~$
diff --git a/utils/generate-XS.pl b/utils/generate-XS.pl
@@ -311,7 +311,7 @@ sub generate_glew_xs {
         _done_glewInit++;
     }
 XS
-        if ( $glewImpl ) {
+        if ( $item->{glewtype} eq 'fun' and $glewImpl ) {
             $res .= <<XS;
     if ( ! $glewImpl ) {
         croak("$name not available on this machine");

Original file line number	Diff line number	Diff line change
`@@ -311,7 +311,7 @@ sub generate_glew_xs {`
`311`	`311`	`_done_glewInit++;`
`312`	`312`	`}`
`313`	`313`	`XS`
`314`		`- if ( $glewImpl ) {`
	`314`	`+ if ( $item->{glewtype} eq 'fun' and $glewImpl ) {`
`315`	`315`	`$res .= <<XS;`
`316`	`316`	`if ( ! $glewImpl ) {`
`317`	`317`	`croak("$name not available on this machine");`