This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #78716] Bogus read after seek beyond end of string
authorFather Chrysostomos <sprout@cpan.org>
Sat, 27 Nov 2010 13:40:53 +0000 (05:40 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 27 Nov 2010 15:41:47 +0000 (07:41 -0800)
commitab9f15865f0bdb3a056da035e63d3297f7c6f3c8
tree544ca6317b4602bec18507709b88cdeaad7510dd
parent6a8c86944bc507200cc01e245d39300e2e6ab775
[perl #78716] Bogus read after seek beyond end of string

This is a signedness problem that ffe0bb5ab did not take into account.
(STRLEN)-10 > 0 returns true for me.
ext/PerlIO-scalar/scalar.xs
ext/PerlIO-scalar/t/scalar.t