Take code that occurs in three places to take a scalar and ready it to

hold a reference, and convert it to a macro define prepare_SV_for_RV().

p4raw-id: //depot/perl@32737

1 files changed, 1 insertions, 7 deletions

diff --git a/pp.c b/pp.c
index 08ebe5e784..ed3ae325a6 100644
--- a/pp.c
+++ b/pp.c
@@ -172,13 +172,7 @@ PP(pp_rv2gv)
 			const char * const name = CopSTASHPV(PL_curcop);
 			gv = newGVgen(name);
 		    }
-		    if (SvTYPE(sv) < SVt_PV && SvTYPE(sv) != SVt_IV)
-			sv_upgrade(sv, SVt_IV);
-		    else if (SvPVX_const(sv)) {
-			SvPV_free(sv);
-			SvLEN_set(sv, 0);
-                        SvCUR_set(sv, 0);
-		    }
+		    prepare_SV_for_RV(sv);
 		    SvRV_set(sv, (SV*)gv);
 		    SvROK_on(sv);
 		    SvSETMAGIC(sv);