Do what perl_clone() does for sharedsv functions.

p4raw-id: //depot/perl@12139

diff --git a/embed.pl b/embed.pl
index 0e38c17..8671366 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -2188,7 +2188,7 @@ s |void   |debprof        |OP *o
 s      |SV*    |save_scalar_at |SV **sptr
 #endif
 
-#if defined(USE_ITHREADS) || defined(PERL_IN_SHAREDSV_C) || defined(PERL_DECL_PROT)
+#if defined(USE_ITHREADS)
 Adp    |void        |sharedsv_init
 Adp    |shared_sv*  |sharedsv_new
 Adp    |shared_sv*  |sharedsv_find          |SV* sv

diff --git a/proto.h b/proto.h
index 2d763a3..077bc92 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1176,7 +1176,7 @@ STATIC void       S_debprof(pTHX_ OP *o);
 STATIC SV*     S_save_scalar_at(pTHX_ SV **sptr);
 #endif
 
-#if defined(USE_ITHREADS) || defined(PERL_IN_SHAREDSV_C) || defined(PERL_DECL_PROT)
+#if defined(USE_ITHREADS)
 PERL_CALLCONV void     Perl_sharedsv_init(pTHX);
 PERL_CALLCONV shared_sv*       Perl_sharedsv_new(pTHX);
 PERL_CALLCONV shared_sv*       Perl_sharedsv_find(pTHX_ SV* sv);