diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-07-17 13:00:46 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-07-17 13:00:46 +0100 |
commit | f815daf249d0865ad381aa1cdebb2a5bd530cd4e (patch) | |
tree | c9c988b91e9ef29e8a2054ee01be5378d6e01f05 /pp_hot.c | |
parent | 23fe4d6e7bec4ccc412e24d9d07947f90422f2dd (diff) | |
download | perl-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); } |