makedef

Author: khwilliamson

makedef.pl

@@ -467,6 +467,9 @@ sub readvar {
 if (!$define{USE_ITHREADS} || $define{WIN32}) {
     ++$skip{PL_main_thread};
 }
+if ($define{USE_ITHREADS}) {
+    ++$skip{Perl_CopFILEGV_set};
+}
 
 unless ($define{USE_POSIX_2008_LOCALE})
 {
@@ -794,15 +797,17 @@ sub readvar {
 {
     my %seen;
     my ($embed_array) = setup_embed($ARGS{TARG_DIR});
-    my $excludedre = $define{'NO_MATHOMS'} ? qr/[emiIsb]/ : qr/[emiIs]/;
+    my $excludedre = $define{'NO_MATHOMS'} ? qr/[eiIsb]/ : qr/[eiIs]/;
 
     foreach (@$embed_array) {
         my $embed= $_->{embed}
             or next;
 	my ($flags, $retval, $func, $args) = @{$embed}{qw(flags return_type name args)};
 	next unless $func;
-	if (($flags =~ /[AXC]/ && $flags !~ $excludedre)
-            || (!$define{'NO_MATHOMS'} && $flags =~ /b/))
+        next if $flags =~ /u/;
+	if (   ($flags =~ /[AXC]/ && $flags !~ $excludedre)
+            || (!$define{'NO_MATHOMS'} && $flags =~ /b/)
+            || ($flags =~ tr/mp// > 1))
         {
 	    # public API, so export