Add TOPm1s to peek at the second topmost stack item.

p4raw-id: //depot/perl@8006

diff --git a/pp.h b/pp.h
index 2226c20..5e531da 100644 (file)
--- a/pp.h
+++ b/pp.h
@@ -126,6 +126,7 @@ Pops a long off the stack.
 #endif
 
 #define TOPs           (*sp)
+#define TOPm1s         (*(sp-1))
 #define TOPp           (SvPV(TOPs, PL_na))             /* deprecated */
 #define TOPpx          (SvPV(TOPs, n_a))
 #define TOPn           (SvNV(TOPs))