From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 14 Nov 2001 22:16:06 +0000 (+0000)
Subject: Quieten pgcc 2.91.66 worries.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4ea42e7fb8e3dea988e8752ae6cffde5bc2a516a;p=p5sagit%2Fp5-mst-13.2.git

Quieten pgcc 2.91.66 worries.

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

diff --git a/gv.c b/gv.c
index f0e685b..eb7b3ba 100644
--- a/gv.c
+++ b/gv.c
@@ -1297,7 +1297,7 @@ Perl_Gv_AMupdate(pTHX_ HV *stash)
 	    if (GvNAMELEN(CvGV(cv)) == 3 && strEQ(GvNAME(CvGV(cv)), "nil")
 		&& strEQ(HvNAME(GvSTASH(CvGV(cv))), "overload")) {
 		/* GvSV contains the name of the method. */
-		GV *ngv;
+		GV *ngv = Nullgv;
 		
 		DEBUG_o( Perl_deb(aTHX_ "Resolving method `%.256s' for overloaded `%s' in package `%.256s'\n",
 			     SvPV_nolen(GvSV(gv)), cp, HvNAME(stash)) );
diff --git a/pp_ctl.c b/pp_ctl.c
index 9e73ca2..407a012 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2139,7 +2139,7 @@ PP(pp_redo)
 STATIC OP *
 S_dofindlabel(pTHX_ OP *o, char *label, OP **opstack, OP **oplimit)
 {
-    OP *kid;
+    OP *kid = Nullop;
     OP **ops = opstack;
     static char too_deep[] = "Target of goto is too deeply nested";
 
diff --git a/utf8.c b/utf8.c
index 9d593bd..576231f 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1344,7 +1344,7 @@ Perl_swash_fetch(pTHX_ SV *sv, U8 *ptr, bool do_utf8)
     U32 off;
     STRLEN slen;
     STRLEN needents;
-    U8 *tmps;
+    U8 *tmps = NULL;
     U32 bit;
     SV *retval;
     U8 tmputf8[2];