--- OpenCL/gengetinfo	2011/11/22 10:29:18	1.5
+++ OpenCL/gengetinfo	2012/04/16 09:42:33	1.6
@@ -162,17 +162,17 @@
       my ($XS1, $XS2);
 
       $XS1 = "void\n"
-           . "XXXNAMEXXX (OpenCL::$classmap{$real_class} this$extra_xs_args)\n";
+           . "XXXNAMEXXX (OpenCL::$classmap{$real_class} self$extra_xs_args)\n";
       $XS2 = " PPCODE:\n";
 
       if ($dynamic) {
         $XS2 .= " size_t size;\n"
-              . " NEED_SUCCESS (Get${cbase}Info, (this$extra_args, ix,    0,     0, &size));\n"
+              . " NEED_SUCCESS (Get${cbase}Info, (self$extra_args, ix,    0,     0, &size));\n"
               . " $type->[0] *value = tmpbuf (size);\n"
-             . " NEED_SUCCESS (Get${cbase}Info, (this$extra_args, ix, size, value,     0));\n";
+             . " NEED_SUCCESS (Get${cbase}Info, (self$extra_args, ix, size, value,     0));\n";
       } else {
         $XS2 .= " $type->[0] value [1];\n"
-              . " NEED_SUCCESS (Get${cbase}Info, (this$extra_args, ix, sizeof (value), value, 0));\n";
+              . " NEED_SUCCESS (Get${cbase}Info, (self$extra_args, ix, sizeof (value), value, 0));\n";
       }
       
       if ($array && $nelem ne "1") {