Do eval at Perl_despatch_signals