diff options
| author | Florian Ragwitz <rafl@debian.org> | 2010-09-28 03:49:48 +0200 |
|---|---|---|
| committer | Florian Ragwitz <rafl@debian.org> | 2010-11-14 17:18:05 +0100 |
| commit | 9ebf26ad4d30e289feeaec20ee238d6874f4b27e (patch) | |
| tree | 5e692b55a003378e60185b463aadad3a2ecd85f1 /embedvar.h | |
| parent | 24802a741468d87fdd5e986702d44cf3253b596f (diff) | |
| download | perl-9ebf26ad4d30e289feeaec20ee238d6874f4b27e.tar.gz | |
Add ${^GLOBAL_PHASE}
This exposes the current top-level interpreter phase to perl space.
Diffstat (limited to 'embedvar.h')
| -rw-r--r-- | embedvar.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/embedvar.h b/embedvar.h index 36f75759be..ca316ef168 100644 --- a/embedvar.h +++ b/embedvar.h @@ -232,6 +232,7 @@ #define PL_perl_destruct_level (vTHX->Iperl_destruct_level) #define PL_perldb (vTHX->Iperldb) #define PL_perlio (vTHX->Iperlio) +#define PL_phase (vTHX->Iphase) #define PL_pidstatus (vTHX->Ipidstatus) #define PL_ppid (vTHX->Ippid) #define PL_preambleav (vTHX->Ipreambleav) @@ -562,6 +563,7 @@ #define PL_Iperl_destruct_level PL_perl_destruct_level #define PL_Iperldb PL_perldb #define PL_Iperlio PL_perlio +#define PL_Iphase PL_phase #define PL_Ipidstatus PL_pidstatus #define PL_Ippid PL_ppid #define PL_Ipreambleav PL_preambleav |