Assorted changes for multi-threading (now works rather more).

p4raw-id: //depot/perl@44

1 files changed, 2 insertions, 0 deletions

diff --git a/gv.c b/gv.c
index 01cad2e149..5dcf8e03e5 100644
--- a/gv.c
+++ b/gv.c
@@ -93,6 +93,7 @@ char *name;
 STRLEN len;
 int multi;
 {
+    dTHR;
     register GP *gp;
 
     sv_upgrade((SV*)gv, SVt_PVGV);
@@ -261,6 +262,7 @@ HV* stash;
 char* name;
 I32 autoload;
 {
+    dTHR;
     register char *nend;
     char *nsplit = 0;
     GV* gv;