summaryrefslogtreecommitdiff
path: root/sv.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2008-01-03 17:54:38 +0000
committerNicholas Clark <nick@ccl4.org>2008-01-03 17:54:38 +0000
commitad25789c15269a04312e0efede81842547aa8212 (patch)
tree2aaac52db8554401f8e520d7ff235d9bb6f8aa98 /sv.h
parent84bafc024a74c819ac3d2b4406253dbe983e6502 (diff)
downloadperl-ad25789c15269a04312e0efede81842547aa8212.tar.gz
Missed three sv_2mortal(newSVpvn(...))s in the headers.
p4raw-id: //depot/perl@32820
Diffstat (limited to 'sv.h')
-rw-r--r--sv.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/sv.h b/sv.h
index 9d0851c084..960a0592aa 100644
--- a/sv.h
+++ b/sv.h
@@ -1761,7 +1761,7 @@ Like C<sv_catsv> but doesn't process magic.
#define sv_catpvn_utf8_upgrade(dsv, sstr, slen, nsv) \
STMT_START { \
if (!(nsv)) \
- nsv = sv_2mortal(newSVpvn(sstr, slen)); \
+ nsv = newSVpvn_flags(sstr, slen, SVs_TEMP); \
else \
sv_setpvn(nsv, sstr, slen); \
SvUTF8_off(nsv); \