diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-11-06 14:25:42 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-06 14:25:42 -0800 |
| commit | 0528fd32099f4f9feef17f454cf9893101872c64 (patch) | |
| tree | ac3467eafaca5cdd3f2b45bb1796a51be11cfde6 /toke.c | |
| parent | e368b3bddfac0a2de936fe626b4a3221d42bc756 (diff) | |
| download | perl-0528fd32099f4f9feef17f454cf9893101872c64.tar.gz | |
toke.c:lex_start: Move len into the only block that uses it
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -683,7 +683,6 @@ Perl_lex_start(pTHX_ SV *line, PerlIO *rsfp, U32 flags) { dVAR; const char *s = NULL; - STRLEN len; yy_parser *parser, *oparser; if (flags && flags & ~LEX_START_FLAGS) Perl_croak(aTHX_ "Lexing code internal error (%s)", "lex_start"); @@ -724,6 +723,7 @@ Perl_lex_start(pTHX_ SV *line, PerlIO *rsfp, U32 flags) *parser->lex_casestack = '\0'; if (line) { + STRLEN len; s = SvPV_const(line, len); parser->linestr = flags & LEX_START_COPIED ? SvREFCNT_inc_simple_NN(line) |