With mallocwrap New() evaluates its arguments more than once, so they

had better not have any side effects.
:-(

p4raw-id: //depot/perl@23941

1 files changed, 2 insertions, 1 deletions

diff --git a/util.c b/util.c
index 85ae19f89f..e90d1955ed 100644
--- a/util.c
+++ b/util.c
@@ -835,7 +835,8 @@ Perl_savesvpv(pTHX_ SV *sv)
     const char *pv = SvPV(sv, len);
     register char *newaddr;
 
-    New(903,newaddr,++len,char);
+    ++len;
+    New(903,newaddr,len,char);
     return CopyD(pv,newaddr,len,char);
 }