In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2f2f3ec9c49055c69541020aa1bf644ca5f8b6f1?hp=6d1c68e64c4dbbb1c7e8a28de678cd3247649bad>
- Log ----------------------------------------------------------------- commit 2f2f3ec9c49055c69541020aa1bf644ca5f8b6f1 Author: Robin Barker <[email protected]> Date: Thu Jun 23 19:12:59 2011 +0100 cast unsigned to avoid warning Add a cast C<(unsigned)> to silence a compiler warning [-Wsign-compare] ----------------------------------------------------------------------- Summary of changes: sv.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/sv.c b/sv.c index 04e040c..445f9d4 100644 --- a/sv.c +++ b/sv.c @@ -5244,7 +5244,7 @@ Perl_sv_magic(pTHX_ register SV *const sv, SV *const obj, const int how, PERL_ARGS_ASSERT_SV_MAGIC; - if (how < 0 || how > C_ARRAY_LENGTH(PL_magic_data) + if (how < 0 || (unsigned)how > C_ARRAY_LENGTH(PL_magic_data) || ((flags = PL_magic_data[how]), (vtable_index = flags & PERL_MAGIC_VTABLE_MASK) > magic_vtable_max)) -- Perl5 Master Repository
