From 0419d9784dfda8adf6980bd60e782b144126dd72 Mon Sep 17 00:00:00 2001 From: Aaron Crane Date: Sun, 17 Jan 2016 14:41:44 +0000 Subject: Fix broken fix for RT #127212 As ilmari++ points out, the fix didn't work on builds without PERL_IMPLICIT_CONTEXT (including non-threaded, non-multiplicity) or PERL_DEBUG_READONLY_COW. --- intrpvar.h | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'intrpvar.h') diff --git a/intrpvar.h b/intrpvar.h index 64a0e6b61a..090bc58605 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -780,11 +780,13 @@ PERLVARI(I, my_cxt_keys, const char **, NULL) /* per-module array of pointers to # endif #endif +#if defined(PERL_IMPLICIT_CONTEXT) || defined(PERL_DEBUG_READONLY_COW) /* For use with the memory debugging code in util.c. This is used only in - * DEBUGGING builds, but defining it in non-debug builds too means that we - * retain binary compatibility between otherwise-compatible plain and debug - * builds. */ + * DEBUGGING builds (as long as the relevant structure is defined), but + * defining it in non-debug builds too means that we retain binary + * compatibility between otherwise-compatible plain and debug builds. */ PERLVAR(I, memory_debug_header, struct perl_memory_debug_header) +#endif #ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP /* File descriptor to talk to the child which dumps scalars. */ -- cgit v1.2.1