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 /intrpvar.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 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index 1ab1495e8e..52e97119de 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -253,6 +253,9 @@ PERLVARI(Idirty, bool, FALSE) /* in the middle of tearing things PERLVAR(Iin_eval, U8) /* trap "fatal" errors? */ PERLVAR(Itainted, bool) /* using variables controlled by $< */ +/* current phase the interpreter is in */ +PERLVARI(Iphase, enum perl_phase, PERL_PHASE_CONSTRUCT) + /* This value may be set when embedding for full cleanup */ /* 0=none, 1=full, 2=full with checks */ /* mod_perl is special, and also assigns a meaning -1 */ |