In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/f815daf249d0865ad381aa1cdebb2a5bd530cd4e?hp=23fe4d6e7bec4ccc412e24d9d07947f90422f2dd>
- Log ----------------------------------------------------------------- commit f815daf249d0865ad381aa1cdebb2a5bd530cd4e Author: Nicholas Clark <[email protected]> Date: Sat Jul 17 13:00:46 2010 +0100 In pp_qr, use gv_stashsv() directly on the SV. Brought to you by the campaign for the elimination of strlen(). ----------------------------------------------------------------------- Summary of changes: pp_hot.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/pp_hot.c b/pp_hot.c index 217ee26..d5a4572 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); } -- Perl5 Master Repository
