In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/dd61358a03a9af4566da18af61a95b264c7f9754?hp=dfeca2c828987964ee831268223821a24ce9de6f>
- Log ----------------------------------------------------------------- commit dd61358a03a9af4566da18af61a95b264c7f9754 Author: Vincent Pit <[email protected]> Date: Mon Jul 27 18:21:14 2009 +0200 Really check that sysread(I, $x, 1, -4) dies with "Offset outside string" ----------------------------------------------------------------------- Summary of changes: t/op/sysio.t | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/t/op/sysio.t b/t/op/sysio.t index c777afb..966a516 100644 --- a/t/op/sysio.t +++ b/t/op/sysio.t @@ -28,7 +28,7 @@ is($x, 'abc'); # should not be able to read before the buffer eval { sysread(I, $x, 1, -4) }; -is($x, 'abc'); +like($@, qr/^Offset outside string /); # $x should be intact is($x, 'abc'); -- Perl5 Master Repository
