1 files changed, 2 insertions, 1 deletions
diff --git a/t/lib/safe2.t b/t/lib/safe2.t
index 40c5098058..a9d24051ea 100755
--- a/t/lib/safe2.t
+++ b/t/lib/safe2.t
@@ -64,7 +64,8 @@ $glob = "ok 11\n";
 
 sub sayok { print "ok @_\n" }
 
-$cpt->share(qw($foo %bar @baz *glob sayok $"));
+$cpt->share(qw($foo %bar @baz *glob sayok));
+$cpt->share('$"') unless $Config{archname} =~ /-thread$/;
 
 $cpt->reval(q{
     package other;