From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 3 Jun 2005 10:03:21 +0000 (+0000)
Subject: s/newSVpv_hek/newSVhek/g; # Lousy choice of name
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c1b02ed82fa9b8892ce2668d35b6825f1fd3fb59;p=p5sagit%2Fp5-mst-13.2.git

s/newSVpv_hek/newSVhek/g; # Lousy choice of name

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

diff --git a/embed.fnc b/embed.fnc
index edffcf8..c3ff3d3 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -533,7 +533,7 @@ Apda	|SV*	|newSVuv	|UV u
 Apda	|SV*	|newSVnv	|NV n
 Apda	|SV*	|newSVpv	|const char* s|STRLEN len
 Apda	|SV*	|newSVpvn	|const char* s|STRLEN len
-Apda	|SV*	|newSVpv_hek	|const HEK *hek
+Apda	|SV*	|newSVhek	|const HEK *hek
 Apda	|SV*	|newSVpvn_share	|const char* s|I32 len|U32 hash
 Afpda	|SV*	|newSVpvf	|const char* pat|...
 Ap	|SV*	|vnewSVpvf	|const char* pat|va_list* args
diff --git a/embed.h b/embed.h
index 15cbbb6..aa87797 100644
--- a/embed.h
+++ b/embed.h
@@ -552,7 +552,7 @@
 #define newSVnv			Perl_newSVnv
 #define newSVpv			Perl_newSVpv
 #define newSVpvn		Perl_newSVpvn
-#define newSVpv_hek		Perl_newSVpv_hek
+#define newSVhek		Perl_newSVhek
 #define newSVpvn_share		Perl_newSVpvn_share
 #define newSVpvf		Perl_newSVpvf
 #define vnewSVpvf		Perl_vnewSVpvf
@@ -2544,7 +2544,7 @@
 #define newSVnv(a)		Perl_newSVnv(aTHX_ a)
 #define newSVpv(a,b)		Perl_newSVpv(aTHX_ a,b)
 #define newSVpvn(a,b)		Perl_newSVpvn(aTHX_ a,b)
-#define newSVpv_hek(a)		Perl_newSVpv_hek(aTHX_ a)
+#define newSVhek(a)		Perl_newSVhek(aTHX_ a)
 #define newSVpvn_share(a,b,c)	Perl_newSVpvn_share(aTHX_ a,b,c)
 #define vnewSVpvf(a,b)		Perl_vnewSVpvf(aTHX_ a,b)
 #define newSVrv(a,b)		Perl_newSVrv(aTHX_ a,b)
diff --git a/hv.c b/hv.c
index 1562976..6201e66 100644
--- a/hv.c
+++ b/hv.c
@@ -2059,7 +2059,7 @@ see C<hv_iterinit>.
 SV *
 Perl_hv_iterkeysv(pTHX_ register HE *entry)
 {
-    return sv_2mortal(newSVpv_hek(HeKEY_hek(entry)));
+    return sv_2mortal(newSVhek(HeKEY_hek(entry)));
 }
 
 /*
diff --git a/proto.h b/proto.h
index 5964997..04fc3ec 100644
--- a/proto.h
+++ b/proto.h
@@ -1033,6 +1033,10 @@ PERL_CALLCONV SV*	Perl_newSVpvn(pTHX_ const char* s, STRLEN len)
 			__attribute__malloc__
 			__attribute__warn_unused_result__;
 
+PERL_CALLCONV SV*	Perl_newSVhek(pTHX_ const HEK *hek)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
 PERL_CALLCONV SV*	Perl_newSVpvn_share(pTHX_ const char* s, I32 len, U32 hash)
 			__attribute__malloc__
 			__attribute__warn_unused_result__;
diff --git a/sv.c b/sv.c
index 69a8908..546df0a 100644
--- a/sv.c
+++ b/sv.c
@@ -7612,7 +7612,7 @@ point to the shared string table where possible.
 */
 
 SV *
-Perl_newSVpv_hek(pTHX_ const HEK *hek)
+Perl_newSVhek(pTHX_ const HEK *hek)
 {
     if (HEK_LEN(hek) == HEf_SVKEY) {
 	return newSVsv(*(SV**)HEK_KEY(hek));