In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ae5c1e95b54cd4134beb011c60931262578afb11?hp=ed4a8a9b7d3d8eb9565b27884c2021a02e53aa37>
- Log ----------------------------------------------------------------- commit ae5c1e95b54cd4134beb011c60931262578afb11 Author: Nicholas Clark <[email protected]> Date: Sat Aug 22 18:08:06 2009 +0100 In pp_entersub, replace gv_fetchpv() with gv_fetchpvs(). ----------------------------------------------------------------------- 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 8416eee..a78f022 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -2765,7 +2765,7 @@ try_autoload: PL_curcopdb = PL_curcop; if (CvLVALUE(cv)) { /* check for lsub that handles lvalue subroutines */ - cv = GvCV(gv_HVadd(gv_fetchpv("DB::lsub", GV_ADDMULTI, SVt_PVHV))); + cv = GvCV(gv_HVadd(gv_fetchpvs("DB::lsub", GV_ADDMULTI, SVt_PVHV))); /* if lsub not found then fall back to DB::sub */ if (!cv) cv = GvCV(PL_DBsub); } else { -- Perl5 Master Repository
