emit warning about function calls that were encountered too early

to enforce their prototype

p4raw-id: //depot/perl@3723

1 files changed, 2 insertions, 0 deletions

diff --git a/op.h b/op.h
index 4de46478d3..dd6307c479 100644
--- a/op.h
+++ b/op.h
@@ -127,6 +127,8 @@ typedef U32 PADOFFSET;
   /* OP_RV2CV only */
 #define OPpENTERSUB_AMPER	8	/* Used & form to call. */
 #define OPpENTERSUB_NOPAREN	128	/* bare sub call (without parens) */
+  /* OP_GV only */
+#define OPpEARLY_CV		32	/* foo() called before sub foo was parsed */
   /* OP_?ELEM only */
 #define OPpLVAL_DEFER		16	/* Defer creation of array/hash elem */
   /* for OP_RV2?V, lower bits carry hints */