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

1 files changed, 2 insertions, 0 deletions

diff --git a/util.c b/util.c
index 72c76a0ade..b6b27a6b16 100644
--- a/util.c
+++ b/util.c
@@ -2530,6 +2530,8 @@ struct thread *t;
     thr->cvcache = newHV();
     thr->magicals = newAV();
     thr->specific = newAV();
+    thr->errsv = newSVpv("", 0);
+    thr->errhv = newHV();
     thr->flags = THRf_R_JOINABLE;
     MUTEX_INIT(&thr->mutex);