Change 18249 by rgs@rgs-home on 2002/12/06 20:42:01 Suppress a compilation warning reported by Jarkko (variable initialization skipped by goto).
Affected files ... .... //depot/perl/toke.c#453 edit Differences ... ==== //depot/perl/toke.c#453 (text) ==== Index: perl/toke.c --- perl/toke.c#452~18233~ Mon Dec 2 12:03:09 2002 +++ perl/toke.c Fri Dec 6 12:42:01 2002 @@ -2208,6 +2208,7 @@ 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 @@ case 'z': case 'Z': keylookup: { - I32 orig_keyword = 0; + orig_keyword = 0; gv = Nullgv; gvp = 0; End of Patch.