(Retracted by #11223.)

Subject: [PATCH] Re: Problem with Safe.pm and Perl 5.004
Message-Id: <3460FFBA.6DA51F46@ti.com>

p4raw-id: //depot/perl@11212

1 files changed, 5 insertions, 0 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 9d51b1e3e3..a28337f741 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2516,6 +2516,11 @@ try_autoload:
 	goto retry;
     }
 
+    if(CvDEFSTASH(cv) != PL_defstash) {
+        save_hptr(&PL_defstash);
+	PL_defstash = CvDEFSTASH(cv);
+    }
+
     gimme = GIMME_V;
     if ((PL_op->op_private & OPpENTERSUB_DB) && GvCV(PL_DBsub) && !CvNODEBUG(cv)) {
 	cv = get_db_sub(&sv, cv);