summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2008-04-06 20:11:52 +0000
committerNicholas Clark <nick@ccl4.org>2008-04-06 20:11:52 +0000
commit4b65a9196162b345e7cbe8a43eca838c2e79e41b (patch)
tree4991882afc4678604942133800e05d40c06d294f /pp_ctl.c
parent439cad7f0af0ff91bdf31605de1593fa2b4842c3 (diff)
downloadperl-4b65a9196162b345e7cbe8a43eca838c2e79e41b.tar.gz
Replace all remaining accesses to COP's cop_label with CopLABEL().
p4raw-id: //depot/perl@33653
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index a3be377c1b..2783d69f86 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2345,7 +2345,7 @@ S_dofindlabel(pTHX_ OP *o, const char *label, OP **opstack, OP **oplimit)
/* First try all the kids at this level, since that's likeliest. */
for (kid = cUNOPo->op_first; kid; kid = kid->op_sibling) {
if ((kid->op_type == OP_NEXTSTATE || kid->op_type == OP_DBSTATE) &&
- kCOP->cop_label && strEQ(kCOP->cop_label, label))
+ CopLABEL(kCOP) && strEQ(CopLABEL(kCOP), label))
return kid;
}
for (kid = cUNOPo->op_first; kid; kid = kid->op_sibling) {