diff options
| author | Nicholas Clark <nick@ccl4.org> | 2013-06-26 18:01:09 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2013-07-12 12:51:39 +0200 |
| commit | 5c64bffd0d9c35e88b9ac48fc997977163abcc50 (patch) | |
| tree | b6caa55fa3e482170bf8f3304e96de6a9937b7f4 /miniperlmain.c | |
| parent | 358c04b72260b75d5a00491f60fc675c4790fe11 (diff) | |
| download | perl-5c64bffd0d9c35e88b9ac48fc997977163abcc50.tar.gz | |
Fix SEGVs and test failures for -DPERL_GLOBAL_STRUCT_PRIVATE
With PERL_GLOBAL_STRUCT_PRIVATE "global" variables are in a structure in
malloc()ed memory, not in global static variables or a global static
structure. Hence no global variables are implicitly initialised to zero.
* PL_curinterp and PL_op_sequence need initialising to NULL
* The global structure is free()d before handlers registered with atexit()
run, so be defensive about this.
* Some C code checks SvOK(PL_sv_placeholder) so ensure that its SvFLAGS()
are 0.
* Zero PL_hash_seed
Diffstat (limited to 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index 71b9424fc3..c57c883f8f 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -148,6 +148,12 @@ main(int argc, char **argv, char **env) #ifdef PERL_GLOBAL_STRUCT free_global_struct(plvarsp); +# ifdef PERL_GLOBAL_STRUCT_PRIVATE + my_plvarsp = NULL; + /* Remember, functions registered with atexit() can run after this point, + and may access "global" variables, and hence end up calling + Perl_GetVarsPrivate() */ +#endif #endif /* PERL_GLOBAL_STRUCT */ exit(exitstatus); |