autogenerate API listing from comments in the source (from Benjamin

[p5sagit/p5-mst-13.2.git] / t / lib / safe2.t

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;