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 (file)
--- 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 (file)
--- 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) {