From: Elizabeth Mattijsen <liz@dijkmat.nl>
Date: Sat, 15 Nov 2003 23:22:16 +0000 (+0100)
Subject: Re:ext/threads/t/problem.t (was: Problems with mod_perl 1.12 (?) and ActivePerl 5... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad4404a3f856c0fca45d321d6f18a8048b0574a8;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/ext/threads/t/problems.t b/ext/threads/t/problems.t
index f56a349..b860ff5 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;