gcc 3.2.1 does not have -Wall faith that tmp

will not be used uninitialized.

p4raw-id: //depot/perl@18699

diff --git a/toke.c b/toke.c
index d8e53b5..74499ab 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -5239,7 +5239,7 @@ static int
 S_pending_ident(pTHX)
 {
     register char *d;
-    register I32 tmp;
+    register I32 tmp = 0;
     /* pit holds the identifier we read and pending_ident is reset */
     char pit = PL_pending_ident;
     PL_pending_ident = 0;