This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix indentation of apidoc for sv_2pvutf8
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 14 Nov 2005 10:45:25 +0000 (10:45 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 14 Nov 2005 10:45:25 +0000 (10:45 +0000)
(so perlapi.pod is correctly generated)

p4raw-id: //depot/perl@26124

pod/perlapi.pod
sv.c

index 6a1bf2b..497ad9f 100644 (file)
@@ -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>
 
diff --git a/sv.c b/sv.c
index 04585ea..206b593 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -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);
 }