Suppress a compilation warning reported by Jarkko

(variable initialization skipped by goto).

p4raw-id: //depot/perl@18249

1 files changed, 2 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 722609b091..1abf12194e 100644
--- a/toke.c
+++ b/toke.c
@@ -2208,6 +2208,7 @@ Perl_yylex(pTHX)
     GV *gv = Nullgv;
     GV **gvp = 0;
     bool bof = FALSE;
+    I32 orig_keyword = 0;
 
     /* check if there's an identifier for us to look at */
     if (PL_pending_ident)
@@ -3800,7 +3801,7 @@ Perl_yylex(pTHX)
     case 'z': case 'Z':
 
       keylookup: {
-	I32 orig_keyword = 0;
+	orig_keyword = 0;
 	gv = Nullgv;
 	gvp = 0;