diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-04-06 20:11:52 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-04-06 20:11:52 +0000 |
commit | 4b65a9196162b345e7cbe8a43eca838c2e79e41b (patch) | |
tree | 4991882afc4678604942133800e05d40c06d294f /pp_ctl.c | |
parent | 439cad7f0af0ff91bdf31605de1593fa2b4842c3 (diff) | |
download | perl-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) { |