[perl.git] branch blead, updated. GitLive-blead-1691-gdd61358

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 <perl@profvince.com>
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

• [perl.git] branch blead, updated. GitLive-blead-1691-gdd61358 by Vincent Pit