In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c494f1f4488c4f068dec8514f981347f6dae60a6?hp=abba722db52fdb6c3ea552eff9b64de087ec4944>
- Log ----------------------------------------------------------------- commit c494f1f4488c4f068dec8514f981347f6dae60a6 Author: Rafael Garcia-Suarez <[email protected]> Date: Sun May 31 22:08:41 2009 +0200 Fix casting warning (that was introduced by 9ef5ed94af) ----------------------------------------------------------------------- Summary of changes: sv.c | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/sv.c b/sv.c index f52d83e..7de171d 100644 --- a/sv.c +++ b/sv.c @@ -9674,9 +9674,9 @@ Perl_sv_vcatpvfn(pTHX_ SV *const sv, const char *const pat, const STRLEN patlen, else { eptr = SvPV_const(argsv, elen); if (DO_UTF8(argsv)) { - I32 old_precis = precis; + STRLEN old_precis = precis; if (has_precis && precis < elen) { - I32 ulen = sv_len_utf8(argsv); + STRLEN ulen = sv_len_utf8(argsv); I32 p = precis > ulen ? ulen : precis; sv_pos_u2b(argsv, &p, 0); /* sticks at end */ precis = p; -- Perl5 Master Repository
