[perl #68108] : also fix if/else constant folding

[p5sagit/p5-mst-13.2.git] / t / op / sysio.t

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');