The first big import towards 5.8.1, @18078. Please do NOT

[perl5.git] / makedef.pl

diff --git a/makedef.pl b/makedef.pl
index 8986296..1d4812e 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]" };