X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=makedef.pl;h=b98f65c9eb445ec6e50e436402689c324e8855c3;hb=4df4e287246babaf287cf6336ca862ceeead8e46;hp=9d3c632706b695c463d83aef02f68b4c0fd44380;hpb=1829b0dc8541492d5482bacbb045b1b817fead03;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/makedef.pl b/makedef.pl
index 9d3c632..b98f65c 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -45,7 +45,7 @@ if ($PLATFORM eq 'win32' or $PLATFORM eq 'wince' or $PLATFORM eq "aix") {
 	# source files and header files and don't include any BUILDOPT's that
 	# the user might have chosen to disable because the canned configs are
 	# minimal configs that don't include any of those options.
-	my $opts = ($PLATFORM eq 'wince' ? '-MCross' : '');
+	my $opts = ($PLATFORM eq 'wince' ? '-MCross' : ''); # for wince need Cross.pm to get Config.pm
 	my $config = `$^X $opts -Ilib -V`;
 	my($options) = $config =~ /^  Compile-time options: (.*?)\n^  \S/ms;
 	$options =~ s/\s+/ /g;
@@ -581,6 +581,7 @@ unless ($define{'DEBUGGING'}) {
 		    Perl_debprofdump
 		    Perl_debstack
 		    Perl_debstackptrs
+		    Perl_pad_sv
 		    Perl_sv_peek
 		    PL_block_type
 		    PL_watchaddr
@@ -660,12 +661,6 @@ else {
 		    )];
 }
 
-unless ($define{'PERL_MALLOC_WRAP'}) {
-    skip_symbols [qw(
-		    PL_memory_wrap
-		    )];
-}
-
 if ($define{'PERL_USE_SAFE_PUTENV'}) {
     skip_symbols [qw(
                    PL_use_safe_putenv