Re:ext/threads/t/problem.t (was: Problems with mod_perl 1.12 (?) and ActivePerl 5.8.1)

Message-Id: <p05111b04bbdc49076950@[192.168.56.3]>

p4raw-id: //depot/perl@21733

1 files changed, 15 insertions, 1 deletions

diff --git a/ext/threads/t/problems.t b/ext/threads/t/problems.t
index f56a349f0c..b860ff5e1d 100644
--- a/ext/threads/t/problems.t
+++ b/ext/threads/t/problems.t
@@ -18,7 +18,7 @@ use threads::shared;
 # call is() from within the DESTROY() function at global destruction time,
 # and parts of Test::* may have already been freed by then
 
-print "1..4\n";
+print "1..5\n";
 
 my $test : shared = 1;
 
@@ -59,4 +59,18 @@ $|++;
     })->join();
     $bar->{tid} = 0;
 }
+
+#
+# This tests whether we can call Config::myconfig after threads have been
+# started (interpreter cloned).  5.8.1 and 5.8.2 contained a bug that would
+# disallow that too be done, because an attempt was made to change a variable
+# with the : unique attribute.
+#
+#########################
+
+threads->new( sub {1} )->join;
+my $not = eval { Config::myconfig() } ? '' : 'not ';
+print "${not}ok $test - Are we able to call Config::myconfig after clone\n";
+$test++;
+
 1;