Macrofy the compile/runtime test.

[perl5.git] / cop.h

diff --git a/cop.h b/cop.h
index 04eb7c0..12eecdc 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -572,3 +572,7 @@ typedef struct stackinfo PERL_SI;
            POPSTACK;                                                   \
        }                                                               \
     } STMT_END
+
+#define IN_PERL_COMPILETIME    (PL_curcop == &PL_compiling)
+#define IN_PERL_RUNTIME                (PL_curcop != &PL_compiling)
+