-=for apidoc newAV
-
-Creates a new AV. The reference count is set to 1.
-
-=cut
-*/
-
-AV *
-Perl_newAV(pTHX)
-{
- register AV * const av = (AV*)NEWSV(3,0);
-
- sv_upgrade((SV *)av, SVt_PVAV);
- /* sv_upgrade does AvREAL_only() */
- AvALLOC(av) = 0;
- SvPV_set(av, (char*)0);
- AvMAX(av) = AvFILLp(av) = -1;
- return av;
-}
-
-/*