diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-11 15:20:43 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-11 15:20:43 +0000 |
| commit | 2faa37ccf8e46b865687f0ab4992b29a75eb79ea (patch) | |
| tree | 39119f36375c3511f7e95acb160221c4f3b066ea /t | |
| parent | 38a03e6ea6b9b346c41b9006fbeedc3b0f0130b2 (diff) | |
| download | perl-2faa37ccf8e46b865687f0ab4992b29a75eb79ea.tar.gz | |
Change name of OP_SPECIFIC to OP_THREADSV. Fixed perl_get_sv when
getting per-thread magicals. Fixed thr->errsv initialisation.
p4raw-id: //depot/perl@229
Diffstat (limited to 't')
| -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; |