diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1997-11-11 23:08:54 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1997-11-11 23:08:54 +0000 |
| commit | e7cd54d7e2bd82a89f30e2f71675be1f5d3be34d (patch) | |
| tree | f6873b8c4849ed68422779287f972403412a3412 /t/lib | |
| parent | 1d64a758d60d7ded97c59c753fea85d3365ca0df (diff) | |
| parent | 004955206412e3e53b76d4dad6bc7ac3032c300a (diff) | |
| download | perl-e7cd54d7e2bd82a89f30e2f71675be1f5d3be34d.tar.gz | |
Initial (untested) integration of mainline changes.
p4raw-id: //depot/win32/perl@234
Diffstat (limited to 't/lib')
| -rwxr-xr-x | t/lib/safe2.t | 3 |
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; |