--- OpenCL/OpenCL.xs	2012/04/19 14:34:56	1.30
+++ OpenCL/OpenCL.xs	2012/04/19 14:36:46	1.31
@@ -1266,7 +1266,7 @@
         PPCODE:
         cl_gl_object_type type;
         cl_GLuint name;
-        NEED_SUCCESS (clGetGLObjectInfo, (self, &type, &name));
+        NEED_SUCCESS (GetGLObjectInfo, (self, &type, &name));
         EXTEND (SP, 2);
         PUSHs (sv_2mortal (newSVuv (type)));
         PUSHs (sv_2mortal (newSVuv (name)));
@@ -1321,7 +1321,7 @@
 target (OpenCL::Image self)
  PPCODE:
  cl_GLenum value [1];
- NEED_SUCCESS (GetGlTextureInfo, (self, CL_GL_TEXTURE_TARGET, sizeof (value), value, 0));
+ NEED_SUCCESS (GetGLTextureInfo, (self, CL_GL_TEXTURE_TARGET, sizeof (value), value, 0));
  EXTEND (SP, 1);
  const int i = 0;
  PUSHs (sv_2mortal (newSVuv (value [i])));
@@ -1330,7 +1330,7 @@
 gl_mipmap_level (OpenCL::Image self)
  PPCODE:
  cl_GLint value [1];
- NEED_SUCCESS (GetGlTextureInfo, (self, CL_GL_MIPMAP_LEVEL, sizeof (value), value, 0));
+ NEED_SUCCESS (GetGLTextureInfo, (self, CL_GL_MIPMAP_LEVEL, sizeof (value), value, 0));
  EXTEND (SP, 1);
  const int i = 0;
  PUSHs (sv_2mortal (newSViv (value [i])));