In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/790427a55372311797954fb3140cd3e0a4ae6d28?hp=b24b84ef00c067346532edb01a22dd2ed39c7852>
- Log -----------------------------------------------------------------
commit 790427a55372311797954fb3140cd3e0a4ae6d28
Author: David Mitchell <da...@iabyn.com>
Date: Sun Sep 12 12:27:19 2010 +0100
fix a couple of -Dmad compiler warnings
-----------------------------------------------------------------------
Summary of changes:
op.c | 10 ++++++----
pad.c | 3 ++-
2 files changed, 8 insertions(+), 5 deletions(-)
diff --git a/op.c b/op.c
index f49ce82..83800e1 100644
--- a/op.c
+++ b/op.c
@@ -8136,10 +8136,12 @@ Perl_ck_shift(pTHX_ OP *o)
argop = newUNOP(OP_RV2AV, 0, scalar(newGVOP(OP_GV, 0, PL_argvgv)));
#ifdef PERL_MAD
- OP * const oldo = o;
- o = newUNOP(type, 0, scalar(argop));
- op_getmad(oldo,o,'O');
- return o;
+ {
+ OP * const oldo = o;
+ o = newUNOP(type, 0, scalar(argop));
+ op_getmad(oldo,o,'O');
+ return o;
+ }
#else
op_free(o);
return newUNOP(type, 0, scalar(argop));
diff --git a/pad.c b/pad.c
index 0b3c948..e945113 100644
--- a/pad.c
+++ b/pad.c
@@ -132,7 +132,8 @@ For state vars, SVs_PADSTALE is overloaded to mean 'not yet
initialised'
#ifdef PERL_MAD
void pad_peg(const char* s) {
- static int pegcnt;
+ static int pegcnt; /* XXX not threadsafe */
+ PERL_UNUSED_ARG(s);
PERL_ARGS_ASSERT_PAD_PEG;
--
Perl5 Master Repository
