This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 33653 (inevitably) missed one cop_label, because I mistook it
authorNicholas Clark <nick@ccl4.org>
Sun, 6 Apr 2008 21:53:57 +0000 (21:53 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 6 Apr 2008 21:53:57 +0000 (21:53 +0000)
for part of some other context-stack related struct.

p4raw-id: //depot/perl@33655

cop.h

diff --git a/cop.h b/cop.h
index 90f96a1..d1e46da 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -476,7 +476,7 @@ struct block_loop {
 #  define CX_ITERDATA_SET(cx,ivar,o)                                   \
        cx->blk_loop.itervar = (SV**)(ivar);
 #endif
-#define CxLABEL(c)     (0 + (c)->blk_oldcop->cop_label)
+#define CxLABEL(c)     (0 + CopLABEL((c)->blk_oldcop))
 #define CxHASARGS(c)   (((c)->cx_type & CXp_HASARGS) == CXp_HASARGS)
 #define CxLVAL(c)      (0 + (c)->blk_u16)