Add ${^GLOBAL_PHASE}

This exposes the current top-level interpreter phase to perl space.

1 files changed, 1 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index d72d176276..484b4021ef 100644
--- a/sv.c
+++ b/sv.c
@@ -13124,6 +13124,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_in_eval		= proto_perl->Iin_eval;
     PL_delaymagic	= proto_perl->Idelaymagic;
     PL_dirty		= proto_perl->Idirty;
+    PL_phase		= proto_perl->Iphase;
     PL_localizing	= proto_perl->Ilocalizing;
 
     PL_errors		= sv_dup_inc(proto_perl->Ierrors, param);