Avoid evaluating a strlen twice due the new implementation

of New() with PERL_MALLOC_WRAP

p4raw-id: //depot/perl@23943

1 files changed, 8 insertions, 0 deletions

diff --git a/util.c b/util.c
index e90d1955ed..fc99463e44 100644
--- a/util.c
+++ b/util.c
@@ -758,10 +758,18 @@ char *
 Perl_savepv(pTHX_ const char *pv)
 {
     register char *newaddr;
+#ifdef PERL_MALLOC_WRAP
+    STRLEN pvlen;
+#endif
     if (!pv)
 	return Nullch;
 
+#ifdef PERL_MALLOC_WRAP
+    pvlen = strlen(pv)+1;
+    New(902,newaddr,pvlen,char);
+#else
     New(902,newaddr,strlen(pv)+1,char);
+#endif
     return strcpy(newaddr,pv);
 }