Add SvGROW_mutable

p4raw-id: //depot/perl@24796

1 files changed, 2 insertions, 0 deletions

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