--- OpenCL/gengetinfo	2012/04/19 14:34:56	1.8
+++ OpenCL/gengetinfo	2012/04/19 14:36:46	1.9
@@ -99,7 +99,7 @@
 
       my $cbase = $class;
       $cbase =~ s/_(.)/\U$1/g;
-      $cbase =~ s/_Gl_/_GL/g;
+      $cbase =~ s/Gl(?=[A-Z])/GL/g;
       $cbase =~ s/^cl//;
       $cbase =~ s/Info$//;
       $cbase = "MemObject"      if $cbase eq "Mem";