From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 3 Oct 2006 08:05:24 +0000 (+0300)
Subject: const sv_reftype
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b388283fa3283aac431577c65411e580d8723a1;p=p5sagit%2Fp5-mst-13.2.git

const sv_reftype
Message-ID: <4521EF94.5080602@iki.fi>

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

diff --git a/embed.fnc b/embed.fnc
index 6511797..0f0fc7d 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -842,7 +842,7 @@ Apd	|char*	|sv_pvbyten_force|NN SV* sv|NULLOK STRLEN* lp
 Apd	|char*	|sv_recode_to_utf8	|NN SV* sv|NN SV *encoding
 Apd	|bool	|sv_cat_decode	|NN SV* dsv|NN SV *encoding|NN SV *ssv|NN int *offset \
 				|NN char* tstr|int tlen
-ApdR	|char*	|sv_reftype	|NN const SV* sv|int ob
+ApdR	|const char*	|sv_reftype	|NN const SV* sv|int ob
 Apd	|void	|sv_replace	|NN SV* sv|NN SV* nsv
 Apd	|void	|sv_report_used
 Apd	|void	|sv_reset	|NN const char* s|NULLOK HV* stash
diff --git a/pod/perlapi.pod b/pod/perlapi.pod
index c341126..df78a14 100644
--- a/pod/perlapi.pod
+++ b/pod/perlapi.pod
@@ -5609,7 +5609,7 @@ X<sv_reftype>
 
 Returns a string describing what the SV is a reference to.
 
-	char*	sv_reftype(const SV* sv, int ob)
+	const char*	sv_reftype(const SV* sv, int ob)
 
 =for hackers
 Found in file sv.c
diff --git a/sv.c b/sv.c
index 4bbf53a..5d76e18 100644
--- a/sv.c
+++ b/sv.c
@@ -7631,7 +7631,7 @@ Returns a string describing what the SV is a reference to.
 =cut
 */
 
-char *
+const char *
 Perl_sv_reftype(pTHX_ const SV *sv, int ob)
 {
     /* The fact that I don't need to downcast to char * everywhere, only in ?: