diff options
| author | Tony Cook <tony@develop-help.com> | 2022-09-26 15:03:50 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2022-11-02 09:35:07 +1100 |
| commit | a1aa0ce969357a471f335bc9f9362f49f178b1fe (patch) | |
| tree | a7a5b2e33e8d7480ce3b47a90e0e4548a93f8a6b /intrpvar.h | |
| parent | 8720ab89901b4674570b078a259b3749153f0283 (diff) | |
| download | perl-a1aa0ce969357a471f335bc9f9362f49f178b1fe.tar.gz | |
We freed PL_splitstr in each thread, allocate it in each thread too
I also fixed const correctness for PL_splitstr, it was initialized
to " " which required it to be const, but the value is only looked
at when PL_minus_F is true, so it wasn't necessary.
So initialize it to NULL, and duplicate the value in threads.
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/intrpvar.h b/intrpvar.h index c18170d7f7..4dcc9149f0 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -496,7 +496,7 @@ PERLVAR(I, warnhook, SV *) /* switches */ PERLVAR(I, patchlevel, SV *) PERLVAR(I, localpatches, const char * const *) -PERLVARI(I, splitstr, const char *, " ") +PERLVARI(I, splitstr, char *, NULL) PERLVAR(I, minus_c, bool) PERLVAR(I, minus_n, bool) |