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 (file)
--- 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 (file)
--- 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 (file)
--- 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 ?: