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, 2 deletions

diff --git a/mg.c b/mg.c
index 47e05a1176..15005e075e 100644
--- a/mg.c
+++ b/mg.c
@@ -580,7 +580,7 @@ MAGIC *mg;
 	break;
 #ifdef USE_THREADS
     case '@':
-	sv_setsv(sv, errsv);
+	sv_setsv(sv, thr->errsv);
 	break;
 #endif /* USE_THREADS */
     }
@@ -1719,7 +1719,7 @@ MAGIC* mg;
 	break;
 #ifdef USE_THREADS
     case '@':
-	sv_setsv(errsv, sv);
+	sv_setsv(thr->errsv, sv);
 	break;
 #endif /* USE_THREADS */
     }