From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 6 Dec 2002 20:42:01 +0000 (+0000)
Subject: Suppress a compilation warning reported by Jarkko
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1d239bbba2de439a8971f5436d867599b62848c8;p=p5sagit%2Fp5-mst-13.2.git

Suppress a compilation warning reported by Jarkko
(variable initialization skipped by goto).

p4raw-id: //depot/perl@18249
---

diff --git a/toke.c b/toke.c
index 722609b..1abf121 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;