summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2003-02-13 09:43:33 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-02-13 09:43:33 +0000
commita55b55d8bdced7506ebb58e07395cd3123a8d718 (patch)
tree05cb763aa1c6833c9bef86264ed4006eeef7fc36 /toke.c
parent8843dda615fc6b4c500632a976c7348c4ff93f1f (diff)
downloadperl-a55b55d8bdced7506ebb58e07395cd3123a8d718.tar.gz
gcc 3.2.1 does not have -Wall faith that tmp
will not be used uninitialized. p4raw-id: //depot/perl@18699
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index d8e53b508b..74499ab910 100644
--- 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;