More -Wall sweeping.

p4raw-id: //depot/perl@10338

5 files changed, 5 insertions, 6 deletions

diff --git a/ext/Cwd/Cwd.xs b/ext/Cwd/Cwd.xs
index 745a67ffe9..872591d3ad 100644
--- a/ext/Cwd/Cwd.xs
+++ b/ext/Cwd/Cwd.xs
@@ -130,7 +130,7 @@ _cwdxs_abs_path(char *start)
   char dotdots[MAXPATHLEN] = { 0 };
   char name[MAXPATHLEN]    = { 0 };
   char *cwd;
-  int namelen;
+  int namelen = 0;
   struct stat cst, pst, tst;
 
   if (PerlLIO_stat(start, &cst) < 0) {
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs
index aba6de99d3..0cd7daaac7 100644
--- a/ext/Devel/DProf/DProf.xs
+++ b/ext/Devel/DProf/DProf.xs
@@ -384,7 +384,7 @@ test_time(pTHX_ clock_t *r, clock_t *u, clock_t *s)
     int i, j, k = 0;
     HV *oldstash = PL_curstash;
     struct tms t1, t2;
-    clock_t realtime1, realtime2;
+    clock_t realtime1 = 0, realtime2 = 0;
     U32 ototal = g_total;
     U32 ostack = g_SAVE_STACK;
     U32 operldb = PL_perldb;
diff --git a/ext/Devel/Peek/Peek.xs b/ext/Devel/Peek/Peek.xs
index 1e481492b5..b3131b6c85 100644
--- a/ext/Devel/Peek/Peek.xs
+++ b/ext/Devel/Peek/Peek.xs
@@ -10,7 +10,7 @@ DeadCode(pTHX)
     return Nullsv;
 #else
     SV* sva;
-    SV* sv, *dbg;
+    SV* sv;
     SV* ret = newRV_noinc((SV*)newAV());
     register SV* svend;
     int tm = 0, tref = 0, ts = 0, ta = 0, tas = 0;
diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index 6e3684ef0d..ef21d5bd91 100644
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -534,6 +534,7 @@ _utf8_to_bytes(sv, ...)
             STRLEN len;
             U8 *s = (U8*)SvPV(sv, len);
 
+	    RETVAL = 0;
             if (SvTRUE(check)) {
               /* Must do things the slow way */
               U8 *dest;
diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs
index 1e6d8f6fe9..c5b5ebf27e 100644
--- a/ext/List/Util/Util.xs
+++ b/ext/List/Util/Util.xs
@@ -89,7 +89,6 @@ PROTOTYPE: @
 CODE:
 {
     int index;
-    NV ret;
     if(!items) {
 	XSRETURN_UNDEF;
     }
@@ -193,7 +192,6 @@ first(block,...)
 PROTOTYPE: &@
 CODE:
 {
-    SV *ret;
     int index;
     I32 markix;
     GV *gv;
@@ -237,7 +235,7 @@ CODE:
     STRLEN len;
     char *ptr = SvPV(str,len);
     ST(0) = sv_newmortal();
-    SvUPGRADE(ST(0),SVt_PVNV);
+    (void)SvUPGRADE(ST(0),SVt_PVNV);
     sv_setpvn(ST(0),ptr,len);
     if(SvNOKp(num) || !SvIOKp(num)) {
 	SvNVX(ST(0)) = SvNV(num);