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);