This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: Smoke 17849 MSWin32 (w2k/GCC)
authorAbe Timmerman <abe@ztreet.demon.nl>
Mon, 9 Sep 2002 01:32:19 +0000 (03:32 +0200)
committerhv <hv@crypt.org>
Mon, 9 Sep 2002 08:48:35 +0000 (08:48 +0000)
Message-Id: <200209090132.19891.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@17876

makedef.pl

index 657cef5..86a1808 100644 (file)
@@ -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]" };