To-do test for #109746

1 files changed, 8 insertions, 1 deletions

diff --git a/t/op/ref.t b/t/op/ref.t
index a9be6ea2cd..acd278ea49 100644
--- a/t/op/ref.t
+++ b/t/op/ref.t
@@ -8,7 +8,7 @@ BEGIN {
 
 use strict qw(refs subs);
 
-plan(234);
+plan(235);
 
 # Test glob operations.
 
@@ -808,6 +808,13 @@ for ("4eounthouonth") {
     like $@, qr/^Modification of a read-only/,
        'refgen does not allow assignment to value aliased to literal string';
 }
+{
+    local $::TODO = ' '
+	if $Config::Config{useithreads} && $Config::Config{mad};
+    my $aref = \123;
+    is \$$aref, $aref,
+	'[perl #109746] referential identity of \literal under threads+mad'
+}
 
 # Bit of a hack to make test.pl happy. There are 3 more tests after it leaves.
 $test = curr_test();