1 files changed, 1 insertions, 0 deletions
diff --git a/perl.h b/perl.h
index 423d264785..4d2004717a 100644
--- a/perl.h
+++ b/perl.h
@@ -4720,6 +4720,7 @@ EXTCONST char PL_bincompat_options[];
 
 #ifndef PERL_SET_PHASE
 #  define PERL_SET_PHASE(new_phase) \
+    PHASE_CHANGE_PROBE(PL_phase_names[new_phase], PL_phase_names[PL_phase]); \
     PL_phase = new_phase;
 #endif