From: Jim Cromie Date: Sat, 16 Feb 2008 18:02:19 +0000 (-0700) Subject: [ patch ] silence 2 possibly uninitialized vars X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f61fd4b74b06db0447fa2ade9a7c3c85c08bbb3;p=p5sagit%2Fp5-mst-13.2.git [ patch ] silence 2 possibly uninitialized vars Message-ID: <47B7879B.5040302@gmail.com> p4raw-id: //depot/perl@33327 --- diff --git a/toke.c b/toke.c index cb73104..72a37c4 100644 --- a/toke.c +++ b/toke.c @@ -6670,7 +6670,7 @@ Perl_yylex(pTHX) (*s == ':' && s[1] == ':')) { #ifdef PERL_MAD - SV *nametoke; + SV *nametoke = NULL; #endif PL_expect = XBLOCK; @@ -12372,8 +12372,8 @@ S_scan_formline(pTHX_ register char *s) bool eofmt = FALSE; #ifdef PERL_MAD char *tokenstart = s; - SV* savewhite; - + SV* savewhite = NULL; + if (PL_madskills) { savewhite = PL_thiswhite; PL_thiswhite = 0;