Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
call_AvARRAY(\@a);    print("\nAfter AvARRAY:\n");   Dump(\@a, 1);
call_AvALLOC(\@a);    print("\nAfter AvALLOC:\n");   Dump(\@a, 1);
call_AvARYLEN(\@a);   print("\nAfter AvARYLEN:\n");  Dump(\@a, 1);
  2. or download this
    After init:
SV = RV(0x238c18) at 0x238c0c
...
    MAX = 3
    ARYLEN = 0x0
    FLAGS = (REAL)
  3. or download this
    #define AvARYLEN(av)    (*Perl_av_arylen_p(aTHX_ MUTABLE_AV(av)))