Public Scratchpad

Download, Select Code To D/L

Help for this page

Select Code to Download

Select or download this

$SIG{INT} = sub {
    my (@stack, $level);
...
    unshift @stack, "-> $pkg: $fn (line $ln) sub $sub";
    }
};