From 9fc012f420361d7813d0f0e2512255e870c5c1e4 Mon Sep 17 00:00:00 2001 From: Gerard Goossen Date: Thu, 29 Mar 2007 19:34:23 +0200 Subject: [PATCH] Re: [PATCH] MAD prototype checking Message-ID: <20070329153423.GE20231@ostwald> p4raw-id: //depot/perl@30838 --- op.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/op.c b/op.c index 1f9cb8f..701d660 100644 --- a/op.c +++ b/op.c @@ -7515,6 +7515,10 @@ Perl_ck_subr(pTHX_ OP *o) o->op_private |= OPpENTERSUB_DB; while (o2 != cvop) { OP* o3; + if (PL_madskills && o2->op_type == OP_STUB) { + o2 = o2->op_sibling; + continue; + } if (PL_madskills && o2->op_type == OP_NULL) o3 = ((UNOP*)o2)->op_first; else -- 1.8.3.1