1 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index 8cb8169cb3..d6f055de15 100644
--- a/perl.c
+++ b/perl.c
@@ -881,7 +881,7 @@ I32 create;
 {
     GV* gv = gv_fetchpv(name, create, SVt_PVCV);
     if (create && !GvCVu(gv))
-    	return newSUB(start_subparse(),
+    	return newSUB(start_subparse(0),
 		      newSVOP(OP_CONST, 0, newSVpv(name,0)),
 		      Nullop,
 		      Nullop);