From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 12 Mar 2007 15:30:39 +0000 (+0000)
Subject: With the demise of ByteLoader in blead, unshare_hek can return to the
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=78197f2f0be4032ad7e6a84098d111f4dfcbfbca;p=p5sagit%2Fp5-mst-13.2.git

With the demise of ByteLoader in blead, unshare_hek can return to the
backwaters of 'p'. Not being visible to 'EX'tensions means that there's
less exposure to maintenance compatibility concerns.

p4raw-id: //depot/perl@30552
---

diff --git a/embed.fnc b/embed.fnc
index 0ee575f..b9d46a2 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 770c403..78d4b56 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 7e05c3b..023e030 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