From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 29 Jun 2005 21:09:16 +0000 (+0000)
Subject: All tests pass (for me) with -DPERL_DONT_CREATE_GVSV
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=29c711a3555acd718860bc45b8366c7a7739f0e5;p=p5sagit%2Fp5-mst-13.2.git

All tests pass (for me) with -DPERL_DONT_CREATE_GVSV

p4raw-id: //depot/perl@25012
---

diff --git a/pp.c b/pp.c
index e2649d3..150dadd 100644
--- a/pp.c
+++ b/pp.c
@@ -273,7 +273,7 @@ PP(pp_rv2sv)
 		gv = (GV*)gv_fetchsv(sv, TRUE, SVt_PV);
 	    }
 	}
-	sv = GvSV(gv);
+	sv = GvSVn(gv);
     }
     if (PL_op->op_flags & OPf_MOD) {
 	if (PL_op->op_private & OPpLVAL_INTRO) {
diff --git a/pp_hot.c b/pp_hot.c
index 9cf214a..13811f6 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2542,7 +2542,7 @@ PP(pp_leavesublv)
 STATIC CV *
 S_get_db_sub(pTHX_ SV **svp, CV *cv)
 {
-    SV *dbsv = GvSV(PL_DBsub);
+    SV *dbsv = GvSVn(PL_DBsub);
 
     save_item(dbsv);
     if (!PERLDB_SUB_NN) {