diff options
| author | John Peacock <jpeacock@rowman.com> | 2002-08-10 11:56:22 -0400 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-20 14:51:16 +0000 |
| commit | 92f0c2656233063d579e19d8c63f7cbf6ce7b9a2 (patch) | |
| tree | de9b1657ee61c55fe0efcd69d94f058b776800ae /sv.c | |
| parent | 464b080a310708e7a2a4f76cfdc5ca4039ba758d (diff) | |
| download | perl-92f0c2656233063d579e19d8c63f7cbf6ce7b9a2.tar.gz | |
[REVISED PATCH] Magic v-strings
Message-id: <3D556FE6.6000404@rowman.com>
plus a bit of cleanup
p4raw-id: //depot/perl@17742
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -4023,6 +4023,11 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags) SvIsUV_on(dstr); SvIVX(dstr) = SvIVX(sstr); } + if (SvVOK(sstr)) { + MAGIC *mg = SvMAGIC(sstr); + sv_magicext(dstr, NULL, PERL_MAGIC_vstring, NULL, + mg->mg_ptr, mg->mg_len); + } } else if (sflags & SVp_IOK) { if (sflags & SVf_IOK) |