From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 8 Aug 2009 08:40:42 +0000 (+0100)
Subject: In pp_caller, remove a GvMULTI_on() by adding GV_ADDMULTI to gv_fetchpvs().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af3885a078fb21c1025ad117ad1b07e69b6e340e;p=p5sagit%2Fp5-mst-13.2.git

In pp_caller, remove a GvMULTI_on() by adding GV_ADDMULTI to gv_fetchpvs().
---

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) */
 	}