diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-05-21 19:57:24 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-05-21 19:57:24 +0000 |
| commit | 14047fc9aecf45824605bc7cab225fa40118f1cc (patch) | |
| tree | 646094a65acda92772a2330525a9159b4c25097e /utf8.c | |
| parent | e37659a3d616afed86fb8f0e0699e900ad4d59b7 (diff) | |
| download | perl-14047fc9aecf45824605bc7cab225fa40118f1cc.tar.gz | |
move PL_tokenbuf into the PL_parser struct
p4raw-id: //depot/perl@31252
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -1556,7 +1556,6 @@ Perl_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 minbits { dVAR; SV* retval; - SV* const tokenbufsv = sv_newmortal(); dSP; const size_t pkg_len = strlen(pkg); const size_t name_len = strlen(name); @@ -1594,9 +1593,6 @@ Perl_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 minbits PUSHs(sv_2mortal(newSViv(minbits))); PUSHs(sv_2mortal(newSViv(none))); PUTBACK; - if (IN_PERL_COMPILETIME) { - sv_setpv(tokenbufsv, PL_tokenbuf); - } errsv_save = newSVsv(ERRSV); if (call_method("SWASHNEW", G_SCALAR)) retval = newSVsv(*PL_stack_sp--); @@ -1608,10 +1604,6 @@ Perl_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 minbits LEAVE; POPSTACK; if (IN_PERL_COMPILETIME) { - STRLEN len; - const char* const pv = SvPV_const(tokenbufsv, len); - - Copy(pv, PL_tokenbuf, len+1, char); CopHINTS_set(PL_curcop, PL_hints); } if (!SvROK(retval) || SvTYPE(SvRV(retval)) != SVt_PVHV) { |