In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ab3ebe974fa603224393cc703dcf1d58a58db38a?hp=0cb87cd1a3dc33e0a423b13170f3eeb1b6488b8c>
- Log ----------------------------------------------------------------- commit ab3ebe974fa603224393cc703dcf1d58a58db38a Author: David Mitchell <[email protected]> Date: Fri Dec 19 17:25:34 2014 +0000 op.c: better casting fix My commit 0cb87cd1a of a few minutes ago broke g++. Hopefully this commit won't break anything else. ----------------------------------------------------------------------- Summary of changes: op.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/op.c b/op.c index aff219b..d17bdd8 100644 --- a/op.c +++ b/op.c @@ -11897,11 +11897,13 @@ Perl_ck_subr(pTHX_ OP *o) /* make class name a shared cow string to speedup method calls */ /* constant string might be replaced with object, f.e. bigint */ if (const_class && !SvROK(*const_class)) { - SSize_t len; + STRLEN len; const char* str = SvPV(*const_class, len); if (len) { SV* const shared = newSVpvn_share( - str, SvUTF8(*const_class) ? -len : len, 0 + str, SvUTF8(*const_class) + ? -(SSize_t)len : (SSize_t)len, + 0 ); SvREFCNT_dec(*const_class); *const_class = shared; -- Perl5 Master Repository
