X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mathoms.c;h=79a3c319b458f099c36b628066d17daf1f32f478;hb=7d4724f95a69a8d5a7cd565f21487912e6d331c0;hp=d15aec95f4b1ba5d0f17a088cf821287e7bae0b2;hpb=a0c21aa16d2e2969e7469365a39ad48179751e84;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mathoms.c b/mathoms.c
index d15aec9..79a3c31 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--) {