diff options
| author | Karl Williamson <khw@cpan.org> | 2015-03-07 12:14:36 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-03-07 12:19:56 -0700 |
| commit | 5b7de4707c48a8a0db05809d0fb1300ab4d3c4c9 (patch) | |
| tree | 8f304c9dca671b407861010730d909e4678f5c4a /intrpvar.h | |
| parent | e33057904642d3ac97c1974cfae10cb0c1db9041 (diff) | |
| download | perl-5b7de4707c48a8a0db05809d0fb1300ab4d3c4c9.tar.gz | |
Skip PL_warn_locale use unless compiled in
The use of this variable was inconsistent. It was not dup'ed on thread
cloning unless LC_CTYPE is being used, but elsewhere it was. This led
to segfaults on threaded builds. Now it isn't touched anywhere unless
LC_CTYPE is used.
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 83789d540c..40134dd046 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -238,7 +238,9 @@ PERLVAR(I, exit_flags, U8) /* was exit() unexpected, etc. */ PERLVAR(I, utf8locale, bool) /* utf8 locale detected */ PERLVAR(I, in_utf8_CTYPE_locale, bool) -PERLVAR(I, warn_locale, SV *) +#ifdef USE_LOCALE_CTYPE + PERLVAR(I, warn_locale, SV *) +#endif PERLVARA(I, colors,6, char *) /* values from PERL_RE_COLORS env var */ |