From e40a14c5e4f24f45446e47176c699c586c46d624 Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Fri, 4 Dec 2015 10:44:33 +0000 Subject: 37202: suppress WARN_CREATE_GLOBAL warnings after a fork --- Src/exec.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Src/exec.c') diff --git a/Src/exec.c b/Src/exec.c index fc31c6be0..acc867c77 100644 --- a/Src/exec.c +++ b/Src/exec.c @@ -2264,7 +2264,7 @@ addvars(Estate state, Wordcode pc, int addflags) * is implicitly scoped. */ flags = (!(addflags & ADDVAR_RESTORE) && - locallevel > 0 && isset(WARNCREATEGLOBAL)) ? + locallevel > forklevel && isset(WARNCREATEGLOBAL)) ? ASSPM_WARN_CREATE : 0; xtr = isset(XTRACE); if (xtr) { -- cgit 1.4.1