--- OpenCL/gengetinfo	2012/04/19 13:06:55	1.7
+++ OpenCL/gengetinfo	2012/04/19 14:34:56	1.8
@@ -99,6 +99,7 @@
 
       my $cbase = $class;
       $cbase =~ s/_(.)/\U$1/g;
+      $cbase =~ s/_Gl_/_GL/g;
       $cbase =~ s/^cl//;
       $cbase =~ s/Info$//;
       $cbase = "MemObject"      if $cbase eq "Mem";