Make the ptr_table functions available in an unthreaded perl, as other

code (such as Storable) can take advantage of them.

p4raw-id: //depot/perl@29673

1 files changed, 3 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 5f066c79bc..8bed94185d 100644
--- a/sv.c
+++ b/sv.c
@@ -9689,6 +9689,8 @@ Perl_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS* param)
     return mgret;
 }
 
+#endif /* USE_ITHREADS */
+
 /* create a new pointer-mapping table */
 
 PTR_TBL_t *
@@ -9832,6 +9834,7 @@ Perl_ptr_table_free(pTHX_ PTR_TBL_t *tbl)
     Safefree(tbl);
 }
 
+#if defined(USE_ITHREADS)
 
 void
 Perl_rvpv_dup(pTHX_ SV *dstr, const SV *sstr, CLONE_PARAMS* param)