In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/696efa16de2cd1abedf24104d680f3d0983587f4?hp=a0f879f6b9a3c4bfa5eefc87794df01addfd0d76>
- Log ----------------------------------------------------------------- commit 696efa16de2cd1abedf24104d680f3d0983587f4 Author: Tony Cook <[email protected]> Date: Thu Dec 18 14:48:34 2014 +1100 fix PerlIO::scalar get_cnt when the file position is beyond 2GB This caused a new test to fail on 32-bit builds. ----------------------------------------------------------------------- Summary of changes: ext/PerlIO-scalar/scalar.xs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ext/PerlIO-scalar/scalar.xs b/ext/PerlIO-scalar/scalar.xs index 9ccded5..7f429d5 100644 --- a/ext/PerlIO-scalar/scalar.xs +++ b/ext/PerlIO-scalar/scalar.xs @@ -277,7 +277,7 @@ PerlIOScalar_get_cnt(pTHX_ PerlIO * f) PerlIOScalar *s = PerlIOSelf(f, PerlIOScalar); STRLEN len; (void)SvPV(s->var,len); - if (len > (STRLEN) s->posn) + if ((Off_t)len > s->posn) return len - (STRLEN)s->posn; else return 0; -- Perl5 Master Repository
