diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-11-26 16:06:53 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-11-26 16:57:12 -0700 |
| commit | 33f29a4cec504672835fd47a5b11657983d0209e (patch) | |
| tree | a5dbc40ad20df3c43ca2b542bc33a6061d68559e /perl.c | |
| parent | 06099f79acc9684bcbd2efbb1efe56ce80c65f08 (diff) | |
| download | perl-33f29a4cec504672835fd47a5b11657983d0209e.tar.gz | |
Remove 3 unused interpreter variables
These variables have been unused in the Perl core since
commit 4c88d5e0740d796bf5064336d280bba72897f385.
The variables are undocumented. The only real use of any of these I
found in CPAN is at
https://metacpan.org/source/ABERGMAN/Devel-GC-Helper-0.25/Helper.xs#L1
The uses there appear to be in a list of known Perl variables. Since
the module was published, more than a few new variables have been added,
making this code obsolete anyway.
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 0 insertions, 6 deletions
@@ -987,15 +987,12 @@ perl_destruct(pTHXx) /* clear utf8 character classes */ SvREFCNT_dec(PL_utf8_alnum); SvREFCNT_dec(PL_utf8_alpha); - SvREFCNT_dec(PL_utf8_blank); - SvREFCNT_dec(PL_utf8_space); SvREFCNT_dec(PL_utf8_graph); SvREFCNT_dec(PL_utf8_digit); SvREFCNT_dec(PL_utf8_upper); SvREFCNT_dec(PL_utf8_lower); SvREFCNT_dec(PL_utf8_print); SvREFCNT_dec(PL_utf8_punct); - SvREFCNT_dec(PL_utf8_xdigit); SvREFCNT_dec(PL_utf8_mark); SvREFCNT_dec(PL_utf8_toupper); SvREFCNT_dec(PL_utf8_totitle); @@ -1006,15 +1003,12 @@ perl_destruct(pTHXx) SvREFCNT_dec(PL_utf8_foldclosures); PL_utf8_alnum = NULL; PL_utf8_alpha = NULL; - PL_utf8_blank = NULL; - PL_utf8_space = NULL; PL_utf8_graph = NULL; PL_utf8_digit = NULL; PL_utf8_upper = NULL; PL_utf8_lower = NULL; PL_utf8_print = NULL; PL_utf8_punct = NULL; - PL_utf8_xdigit = NULL; PL_utf8_mark = NULL; PL_utf8_toupper = NULL; PL_utf8_totitle = NULL; |