This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
06f53df
)
Change 33653 (inevitably) missed one cop_label, because I mistook it
author
Nicholas Clark
<nick@ccl4.org>
Sun, 6 Apr 2008 21:53:57 +0000
(21:53 +0000)
committer
Nicholas 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
patch
|
blob
|
blame
|
history
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)