diff options
| -rw-r--r-- | pod/perlapi.pod | 13 | ||||
| -rw-r--r-- | sv.c | 22 |
2 files changed, 24 insertions, 11 deletions
diff --git a/pod/perlapi.pod b/pod/perlapi.pod index 6a1bf2b33d..497ad9f94a 100644 --- a/pod/perlapi.pod +++ b/pod/perlapi.pod @@ -4613,6 +4613,19 @@ Usually accessed via the C<SvPVbyte> macro. =for hackers Found in file sv.c +=item sv_2pvutf8 +X<sv_2pvutf8> + +Return a pointer to the UTF-8-encoded representation of the SV, and set *lp +to its length. May cause the SV to be upgraded to UTF-8 as a side-effect. + +Usually accessed via the C<SvPVutf8> macro. + + char* sv_2pvutf8(SV* sv, STRLEN* lp) + +=for hackers +Found in file sv.c + =item sv_2pv_flags X<sv_2pv_flags> @@ -3315,21 +3315,21 @@ Perl_sv_2pvbyte(pTHX_ register SV *sv, STRLEN *lp) } /* - * =for apidoc sv_2pvutf8 - * - * Return a pointer to the UTF-8-encoded representation of the SV, and set *lp - * to its length. May cause the SV to be upgraded to UTF-8 as a side-effect. - * - * Usually accessed via the C<SvPVutf8> macro. - * - * =cut - * */ +=for apidoc sv_2pvutf8 + +Return a pointer to the UTF-8-encoded representation of the SV, and set *lp +to its length. May cause the SV to be upgraded to UTF-8 as a side-effect. + +Usually accessed via the C<SvPVutf8> macro. + +=cut +*/ char * Perl_sv_2pvutf8(pTHX_ register SV *sv, STRLEN *lp) { - sv_utf8_upgrade(sv); - return lp ? SvPV(sv,*lp) : SvPV_nolen(sv); + sv_utf8_upgrade(sv); + return lp ? SvPV(sv,*lp) : SvPV_nolen(sv); } |