diff options
author | Nicholas Clark <nick@ccl4.org> | 2007-04-21 13:54:28 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2007-04-21 13:54:28 +0000 |
commit | 41892db1963e88b547da12808d8e5630cc1edb59 (patch) | |
tree | ac7b137d69d11652337dd9ef373041a827114d05 /universal.c | |
parent | 4ea561bc94841f378b6950ed75b669dc60767dfa (diff) | |
download | perl-41892db1963e88b547da12808d8e5630cc1edb59.tar.gz |
Eliminate Internals::inc_sub_generation, which nothing now calls.
p4raw-id: //depot/perl@31012
Diffstat (limited to 'universal.c')
-rw-r--r-- | universal.c | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/universal.c b/universal.c index 354ee618c8..ea901daba6 100644 --- a/universal.c +++ b/universal.c @@ -284,8 +284,6 @@ Perl_boot_core_UNIVERSAL(pTHX) newXSproto("Internals::hash_seed",XS_Internals_hash_seed, file, ""); newXSproto("Internals::rehash_seed",XS_Internals_rehash_seed, file, ""); newXSproto("Internals::HvREHASH", XS_Internals_HvREHASH, file, "\\%"); - newXSproto("Internals::inc_sub_generation",XS_Internals_inc_sub_generation, - file, ""); newXSproto("re::is_regexp", XS_re_is_regexp, file, "$"); newXSproto("re::regname", XS_re_regname, file, ";$$"); newXSproto("re::regnames", XS_re_regnames, file, ";$"); @@ -1057,18 +1055,6 @@ XS(XS_Internals_HvREHASH) /* Subject to change */ Perl_croak(aTHX_ "Internals::HvREHASH $hashref"); } -XS(XS_Internals_inc_sub_generation) -{ - dVAR; - /* Using dXSARGS would also have dITEM and dSP, - * which define 2 unused local variables. */ - dAXMARK; - PERL_UNUSED_ARG(cv); - PERL_UNUSED_VAR(mark); - ++PL_sub_generation; - XSRETURN_EMPTY; -} - XS(XS_re_is_regexp) { dVAR; |