summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-07-17 13:00:46 +0100
committerNicholas Clark <nick@ccl4.org>2010-07-17 13:00:46 +0100
commitf815daf249d0865ad381aa1cdebb2a5bd530cd4e (patch)
treec9c988b91e9ef29e8a2054ee01be5378d6e01f05 /pp_hot.c
parent23fe4d6e7bec4ccc412e24d9d07947f90422f2dd (diff)
downloadperl-f815daf249d0865ad381aa1cdebb2a5bd530cd4e.tar.gz
In pp_qr, use gv_stashsv() directly on the SV.
Brought to you by the campaign for the elimination of strlen().
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 217ee26603..d5a457279c 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1218,7 +1218,7 @@ PP(pp_qr)
SvROK_on(rv);
if (pkg) {
- HV* const stash = gv_stashpv(SvPV_nolen(pkg), GV_ADD);
+ HV *const stash = gv_stashsv(pkg, GV_ADD);
SvREFCNT_dec(pkg);
(void)sv_bless(rv, stash);
}