set variable PL_sig_pending = 1
b Perl_despatch_signals
c