pp_last: use debugging LEAVE variant

Make the two LEAVEs in pp_last() be instead

    LEAVE_with_name("loop2");
    LEAVE_with_name("loop1");

which is more self-documenting and will trap mistakes on DEBUGGING builds

diff --git a/pp_ctl.c b/pp_ctl.c
index 85ae4d3..cef91f5 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2536,11 +2536,11 @@ PP(pp_last)
     TAINT_NOT;
     PL_stack_sp = newsp;
 
-    LEAVE;
+    LEAVE_with_name("loop2");
     cxstack_ix--;
     /* Stack values are safe: */
     POPLOOP(cx);       /* release loop vars ... */
-    LEAVE;
+    LEAVE_with_name("loop1");
     PL_curpm = newpm;  /* ... and pop $1 et al */
 
     PERL_UNUSED_VAR(gimme);