From: Gerard Goossen <gerard@tty.nl>
Date: Thu, 29 Mar 2007 17:34:23 +0000 (+0200)
Subject: Re: [PATCH] MAD prototype checking
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9fc012f420361d7813d0f0e2512255e870c5c1e4;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] MAD prototype checking
Message-ID: <20070329153423.GE20231@ostwald>

p4raw-id: //depot/perl@30838
---

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