#21866 was wrong. another try to plumb that damn leak.

p4raw-id: //depot/perl@21876

1 files changed, 1 insertions, 2 deletions

diff --git a/sv.c b/sv.c
index 40d99cbdbb..47616ce5f7 100644
--- a/sv.c
+++ b/sv.c
@@ -6060,8 +6060,7 @@ Perl_sv_pos_b2u(pTHX_ register SV* sv, I32* offsetp)
 	    assert(mg);
 
 	    if (!mg->mg_ptr) {
-		mg->mg_len = PERL_MAGIC_UTF8_CACHESIZE * 2;
-		Newz(0, cache, mg->mg_len, STRLEN);
+		Newz(0, cache, PERL_MAGIC_UTF8_CACHESIZE * 2, STRLEN);
 		mg->mg_ptr = (char *) cache;
 	    }
 	    assert(cache);