This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Factor out a PERL_SET_PHASE macro
[perl5.git] / perl.h
diff --git a/perl.h b/perl.h
index 6e1038b..423d264 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -4718,6 +4718,11 @@ EXTCONST char PL_bincompat_options[] =
 EXTCONST char PL_bincompat_options[];
 #endif
 
+#ifndef PERL_SET_PHASE
+#  define PERL_SET_PHASE(new_phase) \
+    PL_phase = new_phase;
+#endif
+
 /* The interpreter phases. If these ever change, PL_phase_names right below will
  * need to be updated accordingly. */
 enum perl_phase {