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.
