]> git.imager.perl.org - imager.git/blobdiff - apidocs.perl
[rt #86658] add a missing AUTHOR heading
[imager.git] / apidocs.perl
index 02cb99ce7035c9c9f90bf31c0cd1bf688e083b7d..1a6ed07778c5f4ec465f811efe1d307e6d2d5bd9 100644 (file)
@@ -187,13 +187,13 @@ close OUT;
 
 
 sub make_func_list {
-  my @funcs = qw(i_img i_color i_fcolor i_fill_t mm_log i_img_color_channels i_img_has_alpha i_img_dim i_DF i_DFc i_DFp i_DFcp i_psamp_bits i_gsamp_bits i_psamp i_psampf);
+  my @funcs = qw(i_img i_color i_fcolor i_fill_t mm_log mm_log i_img_color_channels i_img_has_alpha i_img_dim i_DF i_DFc i_DFp i_DFcp i_psamp_bits i_gsamp_bits i_psamp i_psampf);
   open FUNCS, "< imexttypes.h"
     or die "Cannot open imexttypes.h: $!\n";
   my $in_struct;
   while (<FUNCS>) {
     /^typedef struct/ && ++$in_struct;
-    if ($in_struct && /\(\*f_(i[om]?_\w+)/) {
+    if ($in_struct && !/SKIP/ && /\(\*f_(i[om]?_\w+)/) {
       my $name = $1;
       $name =~ s/_imp$//;
       push @funcs, $name;