In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/32e9ec8f7eb4d10de0588b750d5e8a31cf7613f9?hp=225c6e2a61e6a7d3be17ae8b6f9bcb4926889680>
- Log -----------------------------------------------------------------
commit 32e9ec8f7eb4d10de0588b750d5e8a31cf7613f9
Author: David Mitchell <da...@iabyn.com>
Date: Fri Nov 8 11:56:34 2013 +0000
silence spurious 'may be uninitialized' warnings
-Wmaybe-uninitialized isn't smart enough, so explicitly NULL a couple
of vars to keep it happy.
-----------------------------------------------------------------------
Summary of changes:
op.c | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/op.c b/op.c
index 881cc74..fcefa23 100644
--- a/op.c
+++ b/op.c
@@ -1155,7 +1155,7 @@ S_scalar_slice_warning(pTHX_ const OP *o)
const char funny =
o->op_type == OP_ASLICE || o->op_type == OP_HSLICE ? '@' : '%';
SV *name;
- SV *keysv;
+ SV *keysv = NULL; /* just to silence compiler warnings */
const char *key = NULL;
if (!(o->op_private & OPpSLICEWARNING))
@@ -1921,6 +1921,7 @@ S_finalize_op(pTHX_ OP* o)
rop = NULL;
}
+ lexname = NULL; /* just to silence compiler warnings */
check_fields =
rop
&& (lexname = *av_fetch(PL_comppad_name, rop->op_targ, TRUE),
--
Perl5 Master Repository
