--- OpenCL/gengetinfo	2011/11/20 10:21:27	1.1
+++ OpenCL/gengetinfo	2011/11/20 22:29:36	1.3
@@ -123,7 +123,7 @@
       }
 
       my $dynamic;
-      my $nelem = "size / sizeof (value [0])";
+      my $nelem = "size / sizeof (*value)";
 
       if ($ctype eq "STRING_CLASS") {
          $ctype   = "VECTOR_CLASS<char>";
@@ -153,7 +153,7 @@
          $perltype = "\$$perltype";
       }
 
-      $POD .= "\n=item $perltype = \$$real_class->$perl_name$extra_perl_args\n\nCalls C<clGet${cbase}Info> with C<$name> and returns the result(s).\n";
+      $POD .= "=item $perltype = \$$real_class->$perl_name$extra_perl_args\n\nCalls C<clGet${cbase}Info> with C<$name> and returns the result(s).\n\n";
 
       $XS .= "void\n"
            . "$perl_name (OpenCL::$classmap{$real_class} this$extra_xs_args)\n"
@@ -194,9 +194,7 @@
       $XS .= "\n";
    }
 
-   print $XS;
-
    patch "OpenCL.xs", "#BEGIN:$CLASS"               , "#END:$CLASS"               , $XS;
-   patch "OpenCL.pm", "=for gengetinfo begin $CLASS", "=for gengetinfo end $CLASS", "$POD\n";
+   patch "OpenCL.pm", "=for gengetinfo begin $CLASS", "=for gengetinfo end $CLASS", $POD;
 }