This is a live mirror of the Perl 5 development currently hosted at
With the demise of ByteLoader in blead, unshare_hek can return to the
authorNicholas Clark <>
Mon, 12 Mar 2007 15:30:39 +0000 (15:30 +0000)
committerNicholas Clark <>
Mon, 12 Mar 2007 15:30:39 +0000 (15:30 +0000)
backwaters of 'p'. Not being visible to 'EX'tensions means that there's
less exposure to maintenance compatibility concerns.

p4raw-id: //depot/perl@30552


index 0ee575f..b9d46a2 100644 (file)
--- 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 (file)
--- a/embed.h
+++ b/embed.h
 #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
 #ifdef PERL_MAD
 #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)
 #ifdef PERL_MAD
index 7e05c3b..023e030 100644 (file)
@@ -563,7 +563,6 @@ Perl_unlnk