This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence a couple of false positive "may be used uninitialized" gcc warnings
authorVincent Pit <perl@profvince.com>
Tue, 4 May 2010 08:43:07 +0000 (10:43 +0200)
committerVincent Pit <perl@profvince.com>
Tue, 4 May 2010 08:43:07 +0000 (10:43 +0200)
pp_pack.c

index 0ae8afd..9ac9e3d 100644 (file)
--- 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;