We may not even have a list of slabs when Perl_Slab_Free is called.

[p5sagit/p5-mst-13.2.git] / perlapi.h

diff --git a/perlapi.h b/perlapi.h
index 38ebafb..59bb04b 100644 (file)
--- a/perlapi.h
+++ b/perlapi.h
@@ -526,6 +526,10 @@ END_EXTERN_C
 #define PL_sighandlerp         (*Perl_Isighandlerp_ptr(aTHX))
 #undef  PL_signals
 #define PL_signals             (*Perl_Isignals_ptr(aTHX))
+#undef  PL_slab_count
+#define PL_slab_count          (*Perl_Islab_count_ptr(aTHX))
+#undef  PL_slabs
+#define PL_slabs               (*Perl_Islabs_ptr(aTHX))
 #undef  PL_sort_RealCmp
 #define PL_sort_RealCmp                (*Perl_Isort_RealCmp_ptr(aTHX))
 #undef  PL_splitstr