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 /gv.c | |
| 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 'gv.c')
| -rw-r--r-- | gv.c | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -1353,6 +1353,10 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, if (strEQ(name2, "NCODING")) goto magicalize; break; + case '\007': /* $^GLOBAL_PHASE */ + if (strEQ(name2, "LOBAL_PHASE")) + goto ro_magicalize; + break; case '\015': /* $^MATCH */ if (strEQ(name2, "ATCH")) goto magicalize; @@ -1362,7 +1366,8 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, break; case '\020': /* $^PREMATCH $^POSTMATCH */ if (strEQ(name2, "REMATCH") || strEQ(name2, "OSTMATCH")) - goto magicalize; + goto magicalize; + break; case '\024': /* ${^TAINT} */ if (strEQ(name2, "AINT")) goto ro_magicalize; |