Re: Smoke 17849 MSWin32 (w2k/GCC)

Message-Id: <200209090132.19891.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@17876

diff --git a/makedef.pl b/makedef.pl
index 657cef5..86a1808 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -714,6 +714,10 @@ unless ($define{'PL_OP_SLAB_ALLOC'}) {
                     )];
 }
 
+unless ($define{'THREADS_HAVE_PIDS'}) {
+    skip_symbols [qw(PL_ppid)];
+}
+
 sub readvar {
     my $file = shift;
     my $proc = shift || sub { "PL_$_[2]" };