X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=av.c;h=df35b1a8390494130e6db98581e08ad0e94ccd27;hb=0bcc34c2b0b0cb62c0df3d5e562b779fb96595ba;hp=c71dd0340879817fc5a8e8eb1874fac2d792e062;hpb=823a54a3e80592bb1d7f6b5fc487f84a3411e104;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/av.c b/av.c
index c71dd03..df35b1a 100644
--- a/av.c
+++ b/av.c
@@ -398,28 +398,6 @@ Perl_av_make(pTHX_ register I32 size, register SV **strp)
     return av;
 }
 
-AV *
-Perl_av_fake(pTHX_ register I32 size, register SV **strp)
-{
-    register SV** ary;
-    register AV * const av = (AV*)NEWSV(9,0);
-
-    sv_upgrade((SV *)av, SVt_PVAV);
-    Newx(ary,size+1,SV*);
-    AvALLOC(av) = ary;
-    Copy(strp,ary,size,SV*);
-    AvREIFY_only(av);
-    SvPV_set(av, (char*)ary);
-    AvFILLp(av) = size - 1;
-    AvMAX(av) = size - 1;
-    while (size--) {
-	assert (*strp);
-	SvTEMP_off(*strp);
-	strp++;
-    }
-    return av;
-}
-
 /*
 =for apidoc av_clear