Various changes to regex diagnostics and testing

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

diff --git a/makedef.pl b/makedef.pl
index e78f750..b8d32cb 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -404,6 +404,9 @@ elsif ($PLATFORM eq 'aix') {
                     PL_statusvalue_vms
                     PL_sys_intern
                     )]);
+    emit_symbols([qw(
+                    boot_DynaLoader
+                    )]);
 }
 elsif ($PLATFORM eq 'os2') {
     emit_symbols([qw(
@@ -593,7 +596,6 @@ unless ($define{'DEBUGGING'}) {
                    Perl_debstack
                    Perl_debstackptrs
                    Perl_pad_sv
-                   Perl_sv_peek
                    Perl_hv_assert
                    PL_block_type
                    PL_watchaddr
@@ -667,6 +669,7 @@ else {
                    Perl_dump_mstats
                    Perl_get_mstats
                    Perl_malloced_size
+                   Perl_malloc_good_size
                    MallocCfg_ptr
                    MallocCfgP_ptr
                    )];
@@ -734,7 +737,7 @@ unless ($define{'USE_ITHREADS'}) {
                    Perl_he_dup
                    Perl_mg_dup
                    Perl_mro_meta_dup
-                   Perl_re_dup
+                   Perl_re_dup_guts
                    Perl_sv_dup
                    Perl_rvpv_dup
                    Perl_hek_dup
@@ -823,6 +826,12 @@ unless ($define{'PERL_NEED_TIMESBASE'}) {
                    )];
 }
 
+unless ($define{'DEBUG_LEAKING_SCALARS'}) {
+    skip_symbols [qw(
+                   PL_sv_serial
+                   )];
+}
+
 unless ($define{'DEBUG_LEAKING_SCALARS_FORK_DUMP'}) {
     skip_symbols [qw(
                    PL_dumper_fd