Select Code to Download

set variable PL_sig_pending = 1
b Perl_despatch_signals
c

[server ~]$ perl -e 'while(1){foo()};sub foo { sleep 1 }' &
[1] 22480
[server ~]$ ps x
...
$1 = 135614820
(gdb) call Perl_sv_free(135614820)
$2 = 135389568