This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
To-do test for #109746
authorFather Chrysostomos <sprout@cpan.org>
Sun, 16 Jun 2013 03:29:16 +0000 (20:29 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 26 Jul 2013 06:47:58 +0000 (23:47 -0700)
t/op/ref.t

index a9be6ea..acd278e 100644 (file)
@@ -8,7 +8,7 @@ BEGIN {
 
 use strict qw(refs subs);
 
 
 use strict qw(refs subs);
 
-plan(234);
+plan(235);
 
 # Test glob operations.
 
 
 # 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';
 }
     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();
 
 # Bit of a hack to make test.pl happy. There are 3 more tests after it leaves.
 $test = curr_test();