summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2007-12-26 18:12:32 +0000
committerNicholas Clark <nick@ccl4.org>2007-12-26 18:12:32 +0000
commit43230e26bd52e1dcdb541bb4a927c941262b74ed (patch)
tree208c0810033bd66cd36c0a5902f52f146d6c02b1 /pp.c
parentdd48e7ab8eb6069673c480ccd5a1f28dca88269b (diff)
downloadperl-43230e26bd52e1dcdb541bb4a927c941262b74ed.tar.gz
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
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c8
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);