Steve Hay wrote:
> t/re/pat.t, t/re/pat_thr.t, t/op/taint.t and
> dist/threads-shared/t/clone.t all fail (in a threaded build) at
> c9f1f591ba751b24222b22f1f3a6799db0ab0d1b (Read-only COWs), the first
> of your three merge commits.
Thank you. Can you tell which commit in the branch caused it?
What do you get if you dump ${^TAINT} before and after the attempt to
write to it?
diff --git a/t/op/taint.t b/t/op/taint.t
index b521408..479db1d 100644
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -1643,8 +1643,10 @@ SKIP: {
is(${^TAINT}, 1, '$^TAINT is on');
-
+use Devel::Peek;
+Dump ${^TAINT};
eval { ${^TAINT} = 0 };
+Dump ${^TAINT};
is(${^TAINT}, 1, '$^TAINT is not assignable');
like($@, qr/^Modification of a read-only value attempted/,
'Assigning to ${^TAINT} fails');
