Select Code to Download

    _push_timeout_stack();
    local $SIG{USR1} = sub { _raise_alarm };
...
    alarm($time);
    eval { $work->() };
    _pop_timeout_stack();

    void _push_timeout_stack() {
        timeout_stack* current = (timeout_stack*) calloc (1, sizeof(ti
+meout_stack));
...
                evals_to_die--;
            printf("Calced %d evals to pop\n", evals_to_die);
    }