Really check that sysread(I, $x, 1, -4) dies with "Offset outside string"

diff --git a/t/op/sysio.t b/t/op/sysio.t
index c777afb..966a516 100644 (file)
--- 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');