This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] MAD prototype checking
authorGerard Goossen <gerard@tty.nl>
Thu, 29 Mar 2007 17:34:23 +0000 (19:34 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 3 Apr 2007 16:17:01 +0000 (16:17 +0000)
Message-ID: <20070329153423.GE20231@ostwald>

p4raw-id: //depot/perl@30838

op.c

diff --git a/op.c b/op.c
index 1f9cb8f..701d660 100644 (file)
--- 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