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

had better not have any side effects.
:-(

p4raw-id: //depot/perl@23941

diff --git a/util.c b/util.c
index 85ae19f89f4ac8d38b879b9db2f5cb2c3621766d..e90d1955ed37af6ac8249acb49db5359532f8cf4 100644 (file)
--- 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);
 }