1 files changed, 1 insertions, 1 deletions
diff --git a/scope.c b/scope.c
index d59fd899b2..1ce65efe20 100644
--- a/scope.c
+++ b/scope.c
@@ -883,7 +883,7 @@ Perl_leave_scope(pTHX_ I32 base)
 	    break;
 	case SAVEt_DESTRUCTOR_X:
 	    ptr = SSPOPPTR;
-	    (*SSPOPDXPTR)(aTHXo_ ptr);
+	    (*SSPOPDXPTR)(aTHX_ ptr);
 	    break;
 	case SAVEt_REGCONTEXT:
 	case SAVEt_ALLOC: