Help for this page

Select Code to Download


  1. or download this
    if (av && !sorting_av) {
/* simulate pp aassign of tied AV */
...
av_extend(av, max);
...
}
  2. or download this
    Perl_av_extend(pTHX_AV *av, I32 key)
{
...
PUSHs(sv_2mortal(newSViv(key+1)));
PUTBACK;
call_method("EXTEND", G_SCALAR|G_DISCARD);