From 4ab466d9a0c010c94b6aec7b9569c75ded3acfb4 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 6 Jul 2012 14:31:31 -0700
Subject: [PATCH] op.c:newMYSUB: disable stub optimisation
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

It will be a lot easier to get things working without this, for now.
It can be reënabled later.  It might not be worth it, though, as
AUTOLOADing will ignore lexical subs, and this optimisation is mainly
for AUTOLOAD stubs that are rarely used.
---
 op.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/op.c b/op.c
index 08c1338..10e7c70 100644
--- a/op.c
+++ b/op.c
@@ -6920,6 +6920,7 @@ Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
 
     if (SvTYPE(*spot) != SVt_PVCV) {	/* Maybe prototype now, and had at
 					   maximum a prototype before. */
+#if 0
 	if (SvTYPE(*spot) > SVt_NULL) {
 	    cv_ckproto_len_flags(*spot, NULL, ps, ps_len, ps_utf8);
 	}
@@ -6936,6 +6937,7 @@ Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
 	  cv = compcv = NULL;
 	  goto done;
 	}
+#endif
 	SvREFCNT_dec(*spot);
 	*spot = NULL;
     }
-- 
2.7.4