summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2009-08-08 09:40:42 +0100
committerNicholas Clark <nick@ccl4.org>2009-08-08 09:40:42 +0100
commitaf3885a078fb21c1025ad117ad1b07e69b6e340e (patch)
treed4a137c0e7c2327037ec32ea58c30fa248b71565 /pp_ctl.c
parentcc4a32e9b89302623ea23eb4e39216756c107032 (diff)
downloadperl-af3885a078fb21c1025ad117ad1b07e69b6e340e.tar.gz
In pp_caller, remove a GvMULTI_on() by adding GV_ADDMULTI to gv_fetchpvs().
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index a8b8b6d916..453d6d7f2d 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) */
}