From ad25789c15269a04312e0efede81842547aa8212 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 3 Jan 2008 17:54:38 +0000
Subject: Missed three sv_2mortal(newSVpvn(...))s in the headers.

p4raw-id: //depot/perl@32820
---
 hv.h | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'hv.h')

diff --git a/hv.h b/hv.h
index 3be32e675e..5f3d0a1b9f 100644
--- a/hv.h
+++ b/hv.h
@@ -327,8 +327,8 @@ C<SV*>.
 #define HeSVKEY_force(he)	(HeKEY(he) ?				\
 				 ((HeKLEN(he) == HEf_SVKEY) ?		\
 				  HeKEY_sv(he) :			\
-				  sv_2mortal(newSVpvn(HeKEY(he),	\
-						     HeKLEN(he)))) :	\
+				  newSVpvn_flags(HeKEY(he),		\
+						 HeKLEN(he), SVs_TEMP)) : \
 				 &PL_sv_undef)
 #define HeSVKEY_set(he,sv)	((HeKLEN(he) = HEf_SVKEY), (HeKEY_sv(he) = sv))
 
-- 
cgit v1.2.1