From: Vincent Pit <perl@profvince.com>
Date: Tue, 4 May 2010 08:43:07 +0000 (+0200)
Subject: Silence a couple of false positive "may be used uninitialized" gcc warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3297d27d658a6691c429e496bd2a05fe04eda9d7;p=p5sagit%2Fp5-mst-13.2.git

Silence a couple of false positive "may be used uninitialized" gcc warnings
---

diff --git a/pp_pack.c b/pp_pack.c
index 0ae8afd..9ac9e3d 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1225,7 +1225,7 @@ STATIC I32
 S_unpack_rec(pTHX_ tempsym_t* symptr, const char *s, const char *strbeg, const char *strend, const char **new_s )
 {
     dVAR; dSP;
-    SV *sv;
+    SV *sv = NULL;
     const I32 start_sp_offset = SP - PL_stack_base;
     howlen_t howlen;
     I32 checksum = 0;
@@ -1558,7 +1558,7 @@ S_unpack_rec(pTHX_ tempsym_t* symptr, const char *s, const char *strbeg, const c
 	}
 	case 'H':
 	case 'h': {
-	    char *str;
+	    char *str = NULL;
 	    /* Preliminary length estimate, acceptable for utf8 too */
 	    if (howlen == e_star || len > (strend - s) * 2)
 		len = (strend - s) * 2;