From 7ae8ee9e2dc5b5e2978d561e17a946dd34408c4f Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 19 Apr 2005 20:55:24 +0000
Subject: [PATCH] Restore SvEND_set

p4raw-id: //depot/perl@24253
---
 sv.h | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/sv.h b/sv.h
index d1cb725..940355e 100644
--- a/sv.h
+++ b/sv.h
@@ -818,6 +818,9 @@ in gv.h: */
 #define SvLEN_set(sv, val) \
 	STMT_START { assert(SvTYPE(sv) >= SVt_PV); \
 		(((XPV*)  SvANY(sv))->xpv_len = (val)); } STMT_END
+#define SvEND_set(sv, val) \
+	STMT_START { assert(SvTYPE(sv) >= SVt_PV); \
+		(SvCUR(sv) = (val) - SvPVX(sv)); } STMT_END
 
 #define SvPV_renew(sv,n) \
 	STMT_START { SvLEN_set(sv, n); \
-- 
2.7.4