summaryrefslogtreecommitdiff
path: root/pp_pack.c
diff options
context:
space:
mode:
authorVincent Pit <perl@profvince.com>2010-05-04 10:43:07 +0200
committerVincent Pit <perl@profvince.com>2010-05-04 10:43:07 +0200
commit3297d27d658a6691c429e496bd2a05fe04eda9d7 (patch)
treec9e4e98fbb3b704aba1f97c426dc0a7e1890b060 /pp_pack.c
parent6c61c2d446974ecc679f2ed5671233e66fec0984 (diff)
downloadperl-3297d27d658a6691c429e496bd2a05fe04eda9d7.tar.gz
Silence a couple of false positive "may be used uninitialized" gcc warnings
Diffstat (limited to 'pp_pack.c')
-rw-r--r--pp_pack.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp_pack.c b/pp_pack.c
index 0ae8afde9d..9ac9e3de84 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;