diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-08-08 09:40:42 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-08-08 09:40:42 +0100 |
commit | af3885a078fb21c1025ad117ad1b07e69b6e340e (patch) | |
tree | d4a137c0e7c2327037ec32ea58c30fa248b71565 /pp_ctl.c | |
parent | cc4a32e9b89302623ea23eb4e39216756c107032 (diff) | |
download | perl-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.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -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) */ } |