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/thread.h b/thread.h
index 305155c3ff..79064e494e 100644
--- a/thread.h
+++ b/thread.h
@@ -219,6 +219,8 @@ struct thread {
     U32		flags;
     AV *	magicals;		/* Per-thread magicals */
     AV *	specific;		/* Thread-specific user data */
+    SV *	errsv;			/* Backing SV for $@ */
+    HV *	errhv;			/* HV for what was %@ in pp_ctl.c */
     perl_mutex	mutex;			/* For the fields others can change */
     U32		tid;
     struct thread *next, *prev;		/* Circular linked list of threads */