From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 4 Aug 2004 07:00:21 +0000 (+0000)
Subject: Remove compilation warnings about uninitialized variables.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=112dcc46caa17a77552bb7535e1be2c9417728e7;p=p5sagit%2Fp5-mst-13.2.git

Remove compilation warnings about uninitialized variables.

p4raw-id: //depot/perl@23193
---

diff --git a/sv.c b/sv.c
index ce16807..bdcd4af 100644
--- a/sv.c
+++ b/sv.c
@@ -789,8 +789,8 @@ S_find_uninit_var(pTHX_ OP* obase, SV* uninit_sv, bool match)
       {
 	bool pad  = (obase->op_type == OP_PADAV || obase->op_type == OP_PADHV);
 	bool hash = (obase->op_type == OP_PADHV || obase->op_type == OP_RV2HV);
-	I32 index;
-	SV *keysv;
+	I32 index = 0;
+	SV *keysv = Nullsv;
 	int subscript_type = FUV_SUBSCRIPT_WITHIN;
 
 	if (pad) { /* @lex, %lex */
@@ -1072,7 +1072,7 @@ void
 Perl_report_uninit(pTHX_ SV* uninit_sv)
 {
     if (PL_op) {
-	SV* varname;
+	SV* varname = Nullsv;
 	if (uninit_sv) {
 	    varname = find_uninit_var(PL_op, uninit_sv,0);
 	    if (varname)