More -Wall sweeping.

p4raw-id: //depot/perl@10338

1 files changed, 5 insertions, 6 deletions

diff --git a/toke.c b/toke.c
index ec2711b76c..54fcd1617a 100644
--- a/toke.c
+++ b/toke.c
@@ -184,9 +184,8 @@ int yyactlevel = -1;
 STATIC void
 S_tokereport(pTHX_ char *thing, char* s, I32 rv)
 {
-    SV *report;
     DEBUG_T({
-        report = newSVpv(thing, 0);
+        SV* report = newSVpv(thing, 0);
         Perl_sv_catpvf(aTHX_ report, ":line %d:%"IVdf":", CopLINE(PL_curcop),
 		(IV)rv);
 
@@ -538,7 +537,7 @@ S_skipspace(pTHX_ register char *s)
     for (;;) {
 	STRLEN prevlen;
 	SSize_t oldprevlen, oldoldprevlen;
-	SSize_t oldloplen, oldunilen;
+	SSize_t oldloplen = 0, oldunilen = 0;
 	while (s < PL_bufend && isSPACE(*s)) {
 	    if (*s++ == '\n' && PL_in_eval && !PL_rsfp)
 		incline(s);
@@ -4994,7 +4993,7 @@ Perl_yylex(pTHX)
 	  really_sub:
 	    {
 		char tmpbuf[sizeof PL_tokenbuf];
-		SSize_t tboffset;
+		SSize_t tboffset = 0;
 		expectation attrful;
 		bool have_name, have_proto;
 		int key = tmp;
@@ -7231,8 +7230,8 @@ Perl_scan_num(pTHX_ char *start, YYSTYPE* lvalp)
 	 */
 
 	if (!floatit) {
-    	    IV iv;
-    	    UV uv;
+    	    IV iv = 0;
+    	    UV uv = 0;
 	    errno = 0;
 	    if (*PL_tokenbuf == '-')
 		iv = Strtol(PL_tokenbuf, (char**)NULL, 10);