Integrate thrperl 5.003->5.004.

p4raw-id: //depot/perl@24

1 files changed, 7 insertions, 5 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 03a10fea73..1b25bf4c55 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -530,7 +530,7 @@ PP(pp_tie)
     XPUSHs((SV*)GvCV(gv));
     PUTBACK;
 
-    if (op = pp_entersub())
+    if (op = pp_entersub(ARGS))
         runops();
     SPAGAIN;
 
@@ -638,7 +638,7 @@ PP(pp_dbmopen)
     if (perldb && curstash != debstash)
 	op->op_private |= OPpENTERSUB_DB;
     PUTBACK;
-    pp_pushmark();
+    pp_pushmark(ARGS);
 
     EXTEND(sp, 5);
     PUSHs(sv);
@@ -651,7 +651,7 @@ PP(pp_dbmopen)
     PUSHs((SV*)GvCV(gv));
     PUTBACK;
 
-    if (op = pp_entersub())
+    if (op = pp_entersub(ARGS))
         runops();
     SPAGAIN;
 
@@ -659,7 +659,7 @@ PP(pp_dbmopen)
 	sp--;
 	op = (OP *) &myop;
 	PUTBACK;
-	pp_pushmark();
+	pp_pushmark(ARGS);
 
 	PUSHs(sv);
 	PUSHs(left);
@@ -668,7 +668,7 @@ PP(pp_dbmopen)
 	PUSHs((SV*)GvCV(gv));
 	PUTBACK;
 
-	if (op = pp_entersub())
+	if (op = pp_entersub(ARGS))
 	    runops();
 	SPAGAIN;
     }
@@ -823,6 +823,7 @@ void
 setdefout(gv)
 GV *gv;
 {
+    dTHR;
     if (gv)
 	(void)SvREFCNT_inc(gv);
     if (defoutgv)
@@ -910,6 +911,7 @@ CV *cv;
 GV *gv;
 OP *retop;
 {
+    dTHR;
     register CONTEXT *cx;
     I32 gimme = GIMME_V;
     AV* padlist = CvPADLIST(cv);