From 0528fd32099f4f9feef17f454cf9893101872c64 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Sun, 6 Nov 2011 14:25:42 -0800
Subject: toke.c:lex_start: Move len into the only block that uses it

---
 toke.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'toke.c')

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)
-- 
cgit v1.2.1