projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
RT#69616: regexp SVs lose regexpness in assignment
[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');