diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-06-30 14:34:42 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-07-02 08:44:07 -0700 |
| commit | b4b0692a73a016eba05a78e6c2e9a5eae7862567 (patch) | |
| tree | adf964067eadc8a5d831710da0783d4ec3c19261 /pp_ctl.c | |
| parent | 21dfaeec9eaa0c5068d6829b007077e6ca0d637a (diff) | |
| download | perl-b4b0692a73a016eba05a78e6c2e9a5eae7862567.tar.gz | |
Use find_runcv_where for pp_coreargs and pp_runcv
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -3254,6 +3254,7 @@ Perl_find_runcv_where(pTHX_ U8 cond, void *arg, U32 *db_seqp) { dVAR; PERL_SI *si; + int level = 0; if (db_seqp) *db_seqp = PL_curcop->cop_seq; @@ -3276,6 +3277,9 @@ Perl_find_runcv_where(pTHX_ U8 cond, void *arg, U32 *db_seqp) switch (cond) { case FIND_RUNCV_root_eq: if (CvROOT(cv) != (OP *)arg) continue; + return cv; + case FIND_RUNCV_level_eq: + if (level++ != (int)arg) continue; /* GERONIMO! */ default: return cv; |