1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index 7a8c76344d..aec710176d 100644
--- a/toke.c
+++ b/toke.c
@@ -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)