From 5902b6a9a2a1e49c54aefa132afca1e54238aa2b Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 10 Jun 2005 16:26:43 +0000
Subject: Add SvGROW_mutable

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

(limited to 'sv.h')

diff --git a/sv.h b/sv.h
index a22fb8deff..4f35cd4222 100644
--- a/sv.h
+++ b/sv.h
@@ -1525,6 +1525,8 @@ Returns a pointer to the character buffer.
 #define isGV(sv) (SvTYPE(sv) == SVt_PVGV)
 
 #define SvGROW(sv,len) (SvLEN(sv) < (len) ? sv_grow(sv,len) : SvPVX(sv))
+#define SvGROW_mutable(sv,len) \
+    (SvLEN(sv) < (len) ? sv_grow(sv,len) : SvPVX_mutable(sv))
 #define Sv_Grow sv_grow
 
 #define CLONEf_COPY_STACKS 1
-- 
cgit v1.2.1