In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/055ae706a0637a77ba440aedf596d2ebac642051?hp=da42332b10691ba7af7550035ffc7f46c87e4e66>
- Log ----------------------------------------------------------------- commit 055ae706a0637a77ba440aedf596d2ebac642051 Author: Yves Orton <[email protected]> Date: Thu Oct 27 15:36:27 2016 +0200 must check all the EXPORT vars in two places! (Silence lots of used once warnings we used to not generate) ----------------------------------------------------------------------- Summary of changes: gv.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/gv.c b/gv.c index 9ae3eb620e..3b09b8a398 100644 --- a/gv.c +++ b/gv.c @@ -1859,6 +1859,7 @@ S_gv_magicalize(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, if (memEQs(name, len, "EXPORT") ||memEQs(name, len, "EXPORT_OK") ||memEQs(name, len, "EXPORT_FAIL") + ||memEQs(name, len, "EXPORT_TAGS") ) GvMULTI_on(gv); break; @@ -1920,7 +1921,11 @@ S_gv_magicalize(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, } break; case 'E': - if (memEQs(name, len, "EXPORT")) + if (memEQs(name, len, "EXPORT") + ||memEQs(name, len, "EXPORT_OK") + ||memEQs(name, len, "EXPORT_FAIL") + ||memEQs(name, len, "EXPORT_TAGS") + ) GvMULTI_on(gv); break; case 'I': -- Perl5 Master Repository
