#include "perl.h"
void *
-default_protect(int *except, protect_body_t body, ...)
+default_protect(int *excpt, protect_body_t body, ...)
{
dTHR;
dJMPENV;
ret = NULL;
else {
va_start(args, body);
- ret = body(args);
+ ret = CALL_FPTR(body)(args);
va_end(args);
}
- *except = ex;
+ *excpt = ex;
JMPENV_POP;
return ret;
}