--- OpenCL/gengetinfo	2012/04/16 09:42:33	1.6
+++ OpenCL/gengetinfo	2012/04/19 13:06:55	1.7
@@ -14,6 +14,7 @@
    profiling         Event
    mem               Memory
    image             Image
+   gl_texture	     Image
    sampler           Sampler
    program           Program
    program_build     Program
@@ -78,7 +79,7 @@
    rename "$file~", $file;
 }
 
-for my $CLASS (qw(platform device context command_queue mem image sampler program program_build kernel kernel_work_group event profiling)) {
+for my $CLASS (qw(platform device context command_queue mem image sampler program program_build kernel kernel_work_group event profiling gl_texture)) {
    open my $fh, "<getinfo.txt"
       or die "getinfo.txt: $!";
 
@@ -222,6 +223,8 @@
       $XS .= join "", @$_;
    }
 
+   warn "patching class $CLASS\n";
+
    patch "OpenCL.xs", "#BEGIN:$CLASS"               , "#END:$CLASS"               , $XS;
    patch "OpenCL.pm", "=for gengetinfo begin $CLASS", "=for gengetinfo end $CLASS", $POD;
 }