summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2012-11-26 16:06:53 -0700
committerKarl Williamson <public@khwilliamson.com>2012-11-26 16:57:12 -0700
commit33f29a4cec504672835fd47a5b11657983d0209e (patch)
treea5dbc40ad20df3c43ca2b542bc33a6061d68559e /sv.c
parent06099f79acc9684bcbd2efbb1efe56ce80c65f08 (diff)
downloadperl-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 'sv.c')
-rw-r--r--sv.c3
1 files changed, 0 insertions, 3 deletions
diff --git a/sv.c b/sv.c
index 37344aeed6..0a4d26fd53 100644
--- a/sv.c
+++ b/sv.c
@@ -13432,15 +13432,12 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
/* utf8 character class swashes */
PL_utf8_alnum = sv_dup_inc(proto_perl->Iutf8_alnum, param);
PL_utf8_alpha = sv_dup_inc(proto_perl->Iutf8_alpha, param);
- PL_utf8_blank = sv_dup_inc(proto_perl->Iutf8_blank, param);
- PL_utf8_space = sv_dup_inc(proto_perl->Iutf8_space, param);
PL_utf8_graph = sv_dup_inc(proto_perl->Iutf8_graph, param);
PL_utf8_digit = sv_dup_inc(proto_perl->Iutf8_digit, param);
PL_utf8_upper = sv_dup_inc(proto_perl->Iutf8_upper, param);
PL_utf8_lower = sv_dup_inc(proto_perl->Iutf8_lower, param);
PL_utf8_print = sv_dup_inc(proto_perl->Iutf8_print, param);
PL_utf8_punct = sv_dup_inc(proto_perl->Iutf8_punct, param);
- PL_utf8_xdigit = sv_dup_inc(proto_perl->Iutf8_xdigit, param);
PL_utf8_mark = sv_dup_inc(proto_perl->Iutf8_mark, param);
PL_utf8_X_regular_begin = sv_dup_inc(proto_perl->Iutf8_X_regular_begin, param);
PL_utf8_X_extend = sv_dup_inc(proto_perl->Iutf8_X_extend, param);