broken test for use5005threads

p4raw-id: //depot/perl@4775

diff --git a/t/lib/safe2.t b/t/lib/safe2.t
index 2c1c80c..876e7a3 100755 (executable)
--- a/t/lib/safe2.t
+++ b/t/lib/safe2.t
@@ -66,7 +66,7 @@ $glob = "ok 11\n";
 sub sayok { print "ok @_\n" }
 
 $cpt->share(qw($foo %bar @baz *glob sayok));
-$cpt->share('$"') unless $Config{archname} =~ /-thread$/;
+$cpt->share('$"') unless $Config{use5005threads};
 
 $cpt->reval(q{
     package other;