Help for this page

Select Code to Download

Select or download this

sub foo{
    my $var = 'xyz' x 1_000_000;
...
warn "THREE\n";
bar();
warn "FOUR\n";

Select or download this

[...]
write(2, "ONE\n", 4)                    = 4
...
mmap2(NULL, 3002368, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, 
+-1, 0) = 0xb739c000
mmap2(NULL, 3002368, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, 
+-1, 0) = 0xb70bf000
write(2, "FOUR\n", 5)                   = 5