In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/e8608f33d09d88f3da5ddb7de95145b646b3fba3?hp=151cea252da4316fddd84956c61bbb23ecff1bb5>
- Log -----------------------------------------------------------------
commit e8608f33d09d88f3da5ddb7de95145b646b3fba3
Author: Father Chrysostomos <spr...@cpan.org>
Date: Sat Nov 19 06:39:48 2011 -0800
Correct sv_catsv_flags docs
Get-magic is only called on ssv. SV_SMAGIC is accepted, too.
M sv.c
commit 6380cb69679b54a8623ac98abfea7f9f43b264c3
Author: Father Chrysostomos <spr...@cpan.org>
Date: Sat Nov 19 06:36:39 2011 -0800
Correct sv_catpv_flags docs
SV_SMAGIC, not SV_GMAGIC.
M sv.c
commit 122a5be2d49907a653f43f07c75b68f75709e546
Author: Father Chrysostomos <spr...@cpan.org>
Date: Sat Nov 19 06:35:23 2011 -0800
Correct sv_catpvn_flags docs
It respects SV_SMAGIC flag, not SV_GMAGIC (which it ignores).
M sv.c
-----------------------------------------------------------------------
Summary of changes:
sv.c | 13 ++++++++-----
1 files changed, 8 insertions(+), 5 deletions(-)
diff --git a/sv.c b/sv.c
index 69a1e2f..5386373 100644
--- a/sv.c
+++ b/sv.c
@@ -4969,8 +4969,9 @@ Handles 'get' magic, but not 'set' magic. See
C<sv_catpvn_mg>.
Concatenates the string onto the end of the string which is in the SV. The
C<len> indicates number of bytes to copy. If the SV has the UTF-8
status set, then the bytes appended should be valid UTF-8.
-If C<flags> has C<SV_GMAGIC> bit set, will C<mg_get> on C<dsv> if
-appropriate, else not. C<sv_catpvn> and C<sv_catpvn_nomg> are implemented
+If C<flags> has the C<SV_SMAGIC> bit set, will
+C<mg_set> on C<dsv> afterwards if appropriate.
+C<sv_catpvn> and C<sv_catpvn_nomg> are implemented
in terms of this function.
=cut
@@ -5039,7 +5040,9 @@ not 'set' magic. See C<sv_catsv_mg>.
Concatenates the string from SV C<ssv> onto the end of the string in
SV C<dsv>. Modifies C<dsv> but not C<ssv>. If C<flags> has C<SV_GMAGIC>
-bit set, will C<mg_get> on the SVs if appropriate, else not. C<sv_catsv>
+bit set, will C<mg_get> on the C<ssv>, if appropriate, before
+reading it. If the C<flags> contain C<SV_SMAGIC>, C<mg_set> will be
+called on the modified SV afterward, if appropriate. C<sv_catsv>
and C<sv_catsv_nomg> are implemented in terms of this function.
=cut */
@@ -5102,8 +5105,8 @@ Perl_sv_catpv(pTHX_ register SV *const sv, register const
char *ptr)
Concatenates the string onto the end of the string which is in the SV.
If the SV has the UTF-8 status set, then the bytes appended should
-be valid UTF-8. If C<flags> has C<SV_GMAGIC> bit set, will C<mg_get>
-on the SVs if appropriate, else not.
+be valid UTF-8. If C<flags> has the C<SV_SMAGIC> bit set, will C<mg_set>
+on the modified SV if appropriate.
=cut
*/
--
Perl5 Master Repository
