Change 33655 by [EMAIL PROTECTED] on 2008/04/06 21:53:57
Change 33653 (inevitably) missed one cop_label, because I mistook it
for part of some other context-stack related struct.
Affected files ...
... //depot/perl/cop.h#178 edit
Differences ...
==== //depot/perl/cop.h#178 (text) ====
Index: perl/cop.h
--- perl/cop.h#177~33654~ 2008-04-06 13:27:34.000000000 -0700
+++ perl/cop.h 2008-04-06 14:53:57.000000000 -0700
@@ -476,7 +476,7 @@
# 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)
End of Patch.
