Help for this page

Select Code to Download


  1. or download this
    package Foo;
our $d;              #the only line added
...
    $d = [];
    printf "  After %s [%s]\n", $d, join(",", @$d);
});
  2. or download this
    Top before ARRAY(0x1a60b7c) [a,b]
  Before ARRAY(0x1a60b7c) [a,b]
  After ARRAY(0x1a60bb8) []
Top After ARRAY(0x1a60bb8) []