diff options
| author | John Peacock <jpeacock@rowman.com> | 2002-02-24 11:40:07 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-24 23:33:33 +0000 |
| commit | 6050d10e6008e3d6e86de76c85d93bf5c06336aa (patch) | |
| tree | 22abf8721e11d3eb865e04fca86b40c8137fae35 /pp_hot.c | |
| parent | 4a623e436d71abaaa4d1ebda0aec183af7a6eb53 (diff) | |
| download | perl-6050d10e6008e3d6e86de76c85d93bf5c06336aa.tar.gz | |
Re: Copying PV only with possible UTF-8 characters
Message-ID: <3C795DB7.40105@rowman.com>
p4raw-id: //depot/perl@14857
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 9 |
1 files changed, 1 insertions, 8 deletions
@@ -72,14 +72,7 @@ PP(pp_pushmark) PP(pp_stringify) { dSP; dTARGET; - STRLEN len; - char *s; - s = SvPV(TOPs,len); - sv_setpvn(TARG,s,len); - if (SvUTF8(TOPs)) - SvUTF8_on(TARG); - else - SvUTF8_off(TARG); + sv_copypv(TARG,TOPs); SETTARG; RETURN; } |