projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Bind op fix.
[p5sagit/p5-mst-13.2.git]
/
t
/
op
/
misc.t
diff --git
a/t/op/misc.t
b/t/op/misc.t
index
ef3be30
..
55f459d
100755
(executable)
--- a/
t/op/misc.t
+++ b/
t/op/misc.t
@@
-551,3
+551,10
@@
my $x = "foo";
{ f } continue { print $x, "\n" }
EXPECT
foo
+########
+sub C () { 1 }
+sub M { $_[0] = 2; }
+eval "C";
+M(C);
+EXPECT
+Modification of a read-only value attempted at - line 2.