add a few more PURIFY guards

p4raw-id: //depot/perl@1460

2 files changed, 3 insertions, 3 deletions

diff --git a/av.c b/av.c
index 5aac5b1c80..d683df9420 100644
--- a/av.c
+++ b/av.c
@@ -92,7 +92,7 @@ av_extend(AV *av, I32 key)
 		U32 bytes;
 #endif
 
-#ifdef MYMALLOC
+#if defined(MYMALLOC) && !defined(PURIFY)
 		newmax = malloced_size((void*)AvALLOC(av))/sizeof(SV*) - 1;
 
 		if (key <= newmax) 
diff --git a/sv.c b/sv.c
index 4bb6bcaaed..7390d9c3ed 100644
--- a/sv.c
+++ b/sv.c
@@ -1118,13 +1118,13 @@ sv_grow(SV* sv, unsigned long newlen)
 	s = SvPVX(sv);
     if (newlen > SvLEN(sv)) {		/* need more room? */
 	if (SvLEN(sv) && s) {
-#ifdef MYMALLOC
+#if defined(MYMALLOC) && !defined(PURIFY)
 	    STRLEN l = malloced_size((void*)SvPVX(sv));
 	    if (newlen <= l) {
 		SvLEN_set(sv, l);
 		return s;
 	    } else
-#endif 
+#endif
 	    Renew(s,newlen,char);
 	}
         else