Do what perl_clone() does for sharedsv functions.

p4raw-id: //depot/perl@12139

2 files changed, 2 insertions, 2 deletions

diff --git a/embed.pl b/embed.pl
index 0e38c1765e..86713667c7 100755
--- 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 2d763a300b..077bc92c5d 100644
--- 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);