diff options
| author | Andy Lester <andy@petdance.com> | 2005-07-15 05:51:15 -0500 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-07-15 16:30:05 +0000 |
| commit | aec46f14fac1bc74bf8ad4054a6f9674b324f8d2 (patch) | |
| tree | a721e80508692d28218dc799de854ad1efec3aa0 /pp_ctl.c | |
| parent | 73beb80caec743f7a0628a7df6def488c00ea59a (diff) | |
| download | perl-aec46f14fac1bc74bf8ad4054a6f9674b324f8d2.tar.gz | |
more embed cleanup
Message-ID: <20050715155115.GC29983@petdance.com>
(and run regen.pl)
p4raw-id: //depot/perl@25156
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2210,7 +2210,6 @@ PP(pp_redo) STATIC OP * S_dofindlabel(pTHX_ OP *o, const char *label, OP **opstack, OP **oplimit) { - OP *kid = Nullop; OP **ops = opstack; static const char too_deep[] = "Target of goto is too deeply nested"; @@ -2228,6 +2227,7 @@ S_dofindlabel(pTHX_ OP *o, const char *label, OP **opstack, OP **oplimit) } *ops = 0; if (o->op_flags & OPf_KIDS) { + OP *kid; /* 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) && |