diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-30 12:58:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-30 12:58:16 +0000 |
| commit | a01268b57212e226e8cd71d448590f3e6c10d529 (patch) | |
| tree | d5af556152a0a5fb6a1171e857700ddebad98f1b /gv.c | |
| parent | 5511f32566b97bafb11878d78796befdf490138c (diff) | |
| download | perl-a01268b57212e226e8cd71d448590f3e6c10d529.tar.gz | |
Add support for $^N, the most-recently closed group.
p4raw-id: //depot/perl@11038
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -895,6 +895,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) case '\006': /* $^F */ case '\010': /* $^H */ case '\011': /* $^I, NOT \t in EBCDIC */ + case '\016': /* $^N */ case '\020': /* $^P */ case '\024': /* $^T */ if (len > 1) @@ -1764,6 +1765,7 @@ Perl_is_gv_magical(pTHX_ char *name, STRLEN len, U32 flags) case '\010': /* $^H */ case '\011': /* $^I, NOT \t in EBCDIC */ case '\014': /* $^L */ + case '\016': /* $^N */ case '\020': /* $^P */ case '\023': /* $^S */ case '\024': /* $^T */ |