diff options
| author | Karl Williamson <khw@cpan.org> | 2020-11-01 21:02:03 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-11-02 09:18:05 -0700 |
| commit | 0f60372ed6df95f464ea9e1f7fd11d209caee776 (patch) | |
| tree | 9407bb6d1be31d8658b4a0976a54b3c670f288c9 /intrpvar.h | |
| parent | e439aacbbaca7c23c28bc3babef388adaee83857 (diff) | |
| download | perl-0f60372ed6df95f464ea9e1f7fd11d209caee776.tar.gz | |
intrpvar.h: Don't define an undef symbol
This symbol needs MULTIPLICTY for its target to actually be defined.
Discovered by Devel::PPPort
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/intrpvar.h b/intrpvar.h index 5f32b70012..4ca962389c 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -855,11 +855,13 @@ PERLVAR(I, debug_pad, struct perl_debug_pad) /* always needed because of the re /* Hook for File::Glob */ PERLVARI(I, globhook, globhook_t, NULL) +#if defined(MULTIPLICITY) /* The last unconditional member of the interpreter structure when 5.18.0 was released. The offset of the end of this is baked into a global variable in any shared perl library which will allow a sanity test in future perl releases. */ -#define PERL_LAST_5_18_0_INTERP_MEMBER Iglobhook +# define PERL_LAST_5_18_0_INTERP_MEMBER Iglobhook +#endif #ifdef PERL_IMPLICIT_CONTEXT PERLVARI(I, my_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */ |