11792 wasn't complete

[p5sagit/p5-mst-13.2.git] / makedef.pl

diff --git a/makedef.pl b/makedef.pl
index 12eab67..ed1204e 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -212,6 +212,8 @@ sub emit_symbols {
     }
 }
 
+skip_symbols [qw(Perl_custom_op_name Perl_custom_op_desc PL_custom_op_descs PL_custom_op_names)] unless $define{'PERL_CUSTOM_OPS'};
+
 if ($PLATFORM eq 'win32') {
     skip_symbols [qw(
                     PL_statusvalue_vms
@@ -296,6 +298,8 @@ elsif ($PLATFORM eq 'os2') {
                    ctermid
                    get_sysinfo
                    Perl_OS2_init
+                   Perl_OS2_init3
+                   Perl_OS2_term
                    OS2_Perl_data
                    dlopen
                    dlsym
@@ -469,6 +473,12 @@ unless ($define{'PERL_FLEXIBLE_EXCEPTIONS'}) {
                    )];
 }
 
+unless ($define{'USE_REENTRANT_API'}) {
+    skip_symbols [qw(
+                   PL_reentrant_buffer
+                   )];
+}
+
 if ($define{'MYMALLOC'}) {
     emit_symbols [qw(
                    Perl_dump_mstats
@@ -535,6 +545,8 @@ unless ($define{'USE_ITHREADS'}) {
     skip_symbols [qw(
                    PL_ptr_table
                    PL_op_mutex
+                   PL_regex_pad
+                   PL_regex_padav
                    Perl_dirp_dup
                    Perl_cx_dup
                    Perl_si_dup
@@ -557,6 +569,13 @@ unless ($define{'USE_ITHREADS'}) {
                    Perl_ptr_table_store
                    perl_clone
                    perl_clone_using
+                   Perl_sharedsv_find
+                   Perl_sharedsv_init
+                   Perl_sharedsv_lock
+                   Perl_sharedsv_new
+                   Perl_sharedsv_thrcnt_dec
+                   Perl_sharedsv_thrcnt_inc
+                   Perl_sharedsv_unlock
                    )];
 }
 
@@ -749,7 +768,7 @@ else {
 sub try_symbol {
     my $symbol = shift;
 
-    return if $symbol !~ /^[A-Za-z]/;
+    return if $symbol !~ /^[A-Za-z_]/;
     return if $symbol =~ /^\#/;
     $symbol =~s/\r//g;
     chomp($symbol);