1 files changed, 1 insertions, 2 deletions
diff --git a/op.c b/op.c
index e7cff45467..6a94db44f8 100644
--- a/op.c
+++ b/op.c
@@ -9338,8 +9338,7 @@ Perl_rpeep(pTHX_ register OP *o)
 	while (!o) {
 	    if (defer_ix < 0)
 		break;
-	    o = defer_queue[(defer_base + defer_ix--) % MAX_DEFERRED];
-	    oldop = NULL;
+	    CALL_RPEEP(defer_queue[(defer_base + defer_ix--) % MAX_DEFERRED]);
 	}
 	if (!o)
 	    break;