This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct sv_catpvn_flags docs
authorFather Chrysostomos <sprout@cpan.org>
Sat, 19 Nov 2011 14:35:23 +0000 (06:35 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 19 Nov 2011 14:35:23 +0000 (06:35 -0800)
It respects SV_SMAGIC flag, not SV_GMAGIC (which it ignores).

sv.c

diff --git a/sv.c b/sv.c
index 69a1e2f..7a1a6b9 100644 (file)
--- 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.
 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
 in terms of this function.
 
 =cut