diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-11 12:48:26 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-11 12:48:26 +0000 |
| commit | 38a03e6ea6b9b346c41b9006fbeedc3b0f0130b2 (patch) | |
| tree | dfad8700b788597b91a0ada8768e7b083306c4b7 /ext | |
| parent | 57d3b86dc9b74a9b2d9e24c40494104c74f62be7 (diff) | |
| download | perl-38a03e6ea6b9b346c41b9006fbeedc3b0f0130b2.tar.gz | |
Fix up $@ (ERRSV now refers to GvSV(errgv) for non-threaded perl and
thr->errsv for threaded perl). Fix pp_tie and pp_dbmopen to use
GvCV(gv) instead of gv so AUTOLOAD stuff works. All tests now pass
again for non-threaded perl. Enhanced perl_get_sv to return
per-thread magicals where necessary for threaded perl.
p4raw-id: //depot/perl@228
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Thread/Thread.xs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs index 9c0325e07d..f5bb2220b2 100644 --- a/ext/Thread/Thread.xs +++ b/ext/Thread/Thread.xs @@ -147,6 +147,8 @@ void *arg; SvREFCNT_dec(thr->cvcache); SvREFCNT_dec(thr->magicals); SvREFCNT_dec(thr->specific); + SvREFCNT_dec(thr->errsv); + SvREFCNT_dec(thr->errhv); Safefree(markstack); Safefree(scopestack); Safefree(savestack); |