In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/af3885a078fb21c1025ad117ad1b07e69b6e340e?hp=cc4a32e9b89302623ea23eb4e39216756c107032>
- Log ----------------------------------------------------------------- commit af3885a078fb21c1025ad117ad1b07e69b6e340e Author: Nicholas Clark <[email protected]> Date: Sat Aug 8 09:40:42 2009 +0100 In pp_caller, remove a GvMULTI_on() by adding GV_ADDMULTI to gv_fetchpvs(). ----------------------------------------------------------------------- Summary of changes: pp_ctl.c | 5 ++--- 1 files changed, 2 insertions(+), 3 deletions(-) diff --git a/pp_ctl.c b/pp_ctl.c index a8b8b6d..453d6d7 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -1749,9 +1749,8 @@ PP(pp_caller) const int off = AvARRAY(ary) - AvALLOC(ary); if (!PL_dbargs) { - GV* const tmpgv = gv_fetchpvs("DB::args", GV_ADD, SVt_PVAV); - PL_dbargs = GvAV(gv_AVadd(tmpgv)); - GvMULTI_on(tmpgv); + PL_dbargs = GvAV(gv_AVadd(gv_fetchpvs("DB::args", GV_ADDMULTI, + SVt_PVAV))); AvREAL_off(PL_dbargs); /* XXX should be REIFY (see av.h) */ } -- Perl5 Master Repository
