From d1189716a8c17a4f78bbf6cb6f38c7d355235dd1 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 10 Jan 2000 00:07:29 +0000
Subject: [PATCH] broken test for use5005threads

p4raw-id: //depot/perl@4775
---
 t/lib/safe2.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/lib/safe2.t b/t/lib/safe2.t
index 2c1c80c..876e7a3 100755
--- 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;
-- 
2.7.4