[ patch ] silence 2 possibly uninitialized vars
authorJim Cromie <jcromie@cpan.org>
Sat, 16 Feb 2008 18:02:19 +0000 (11:02 -0700)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 18 Feb 2008 10:54:15 +0000 (10:54 +0000)
Message-ID: <47B7879B.5040302@gmail.com>

p4raw-id: //depot/perl@33327

toke.c

diff --git a/toke.c b/toke.c
index cb73104..72a37c4 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -6670,7 +6670,7 @@ Perl_yylex(pTHX)
                    (*s == ':' && s[1] == ':'))
                {
 #ifdef PERL_MAD
                    (*s == ':' && s[1] == ':'))
                {
 #ifdef PERL_MAD
-                   SV *nametoke;
+                   SV *nametoke = NULL;
 #endif
 
                    PL_expect = XBLOCK;
 #endif
 
                    PL_expect = XBLOCK;
@@ -12372,8 +12372,8 @@ S_scan_formline(pTHX_ register char *s)
     bool eofmt = FALSE;
 #ifdef PERL_MAD
     char *tokenstart = s;
     bool eofmt = FALSE;
 #ifdef PERL_MAD
     char *tokenstart = s;
-    SV* savewhite;
-    
+    SV* savewhite = NULL;
+
     if (PL_madskills) {
        savewhite = PL_thiswhite;
        PL_thiswhite = 0;
     if (PL_madskills) {
        savewhite = PL_thiswhite;
        PL_thiswhite = 0;