[asperl] various changes to get asperl working under Borland

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

diff --git a/t/lib/safe2.t b/t/lib/safe2.t
index 40c5098..c9e3880 100755 (executable)
--- 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;
@@ -123,6 +124,7 @@ my $t = 30;
 $cpt->rdo('/non/existant/file.name');
 print +(($! =~ /No such file/ || $! =~ /file specification syntax error/) ||
       $! =~ /A file or directory in the path name does not exist/ ||
+      $! =~ /Invalid argument/ ||
       $! =~ /Device not configured/ ?
       "ok $t\n" : "not ok $t # $!\n"); $t++;
 print 1 ? "ok $t\n" : "not ok $t\n#$@/$!\n"; $t++;