3 files changed, 3 insertions, 4 deletions
diff --git a/embed.fnc b/embed.fnc
index 0ee575f1cf..b9d46a28b1 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -913,7 +913,7 @@ Apd	|I32	|unpack_str	|NN const char *pat|NN const char *patend|NN const char *s
 Apd	|I32	|unpackstring	|NN const char *pat|NN const char *patend|NN const char *s \
 				|NN const char *strend|U32 flags
 Ap	|void	|unsharepvn	|NULLOK const char* sv|I32 len|U32 hash
-XEp	|void	|unshare_hek	|NULLOK HEK* hek
+p	|void	|unshare_hek	|NULLOK HEK* hek
 #ifdef PERL_MAD
 p	|OP *	|utilize	|int aver|I32 floor|NULLOK OP* version \
 				|NN OP* idop|NULLOK OP* arg
diff --git a/embed.h b/embed.h
index 770c403769..78d4b56c32 100644
--- a/embed.h
+++ b/embed.h
@@ -925,7 +925,7 @@
 #define unpack_str		Perl_unpack_str
 #define unpackstring		Perl_unpackstring
 #define unsharepvn		Perl_unsharepvn
-#if defined(PERL_CORE) || defined(PERL_EXT)
+#ifdef PERL_CORE
 #define unshare_hek		Perl_unshare_hek
 #endif
 #ifdef PERL_MAD
@@ -3142,7 +3142,7 @@
 #define unpack_str(a,b,c,d,e,f,g,h)	Perl_unpack_str(aTHX_ a,b,c,d,e,f,g,h)
 #define unpackstring(a,b,c,d,e)	Perl_unpackstring(aTHX_ a,b,c,d,e)
 #define unsharepvn(a,b,c)	Perl_unsharepvn(aTHX_ a,b,c)
-#if defined(PERL_CORE) || defined(PERL_EXT)
+#ifdef PERL_CORE
 #define unshare_hek(a)		Perl_unshare_hek(aTHX_ a)
 #endif
 #ifdef PERL_MAD
diff --git a/global.sym b/global.sym
index 7e05c3b6fc..023e0302f3 100644
--- a/global.sym
+++ b/global.sym
@@ -563,7 +563,6 @@ Perl_unlnk
 Perl_unpack_str
 Perl_unpackstring
 Perl_unsharepvn
-Perl_unshare_hek
 Perl_utf16_to_utf8
 Perl_utf16_to_utf8_reversed
 Perl_utf8_length