assert() that SvPV_set() isn't used on arrays.

p4raw-id: //depot/perl@29221

1 files changed, 1 insertions, 1 deletions

diff --git a/mathoms.c b/mathoms.c
index d15aec95f4..79a3c319b4 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -554,7 +554,7 @@ Perl_av_fake(pTHX_ register I32 size, register SV **strp)
     AvALLOC(av) = ary;
     Copy(strp,ary,size,SV*);
     AvREIFY_only(av);
-    SvPV_set(av, (char*)ary);
+    AvARRAY(av) = ary;
     AvFILLp(av) = size - 1;
     AvMAX(av) = size - 1;
     while (size--) {