Quieten pgcc 2.91.66 worries.

p4raw-id: //depot/perl@13008

diff --git a/gv.c b/gv.c
index f0e685b..eb7b3ba 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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];