change#3449 wasn't doing enough

[p5sagit/p5-mst-13.2.git] / scope.c

diff --git a/scope.c b/scope.c
index 6c9c427..ad7fe29 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -16,7 +16,7 @@
 #include "perl.h"
 
 void *
-default_protect(int *except, protect_body_t body, ...)
+default_protect(int *excpt, protect_body_t body, ...)
 {
     dTHR;
     dJMPENV;
@@ -31,10 +31,10 @@ default_protect(int *except, protect_body_t body, ...)
        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;
 }