From 4b65a9196162b345e7cbe8a43eca838c2e79e41b Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sun, 6 Apr 2008 20:11:52 +0000 Subject: Replace all remaining accesses to COP's cop_label with CopLABEL(). p4raw-id: //depot/perl@33653 --- pp_ctl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp_ctl.c') 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) { -- cgit v1.2.1