diff options
author | Karl Williamson <khw@cpan.org> | 2018-02-27 13:08:07 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-02-27 13:18:38 -0700 |
commit | 52c17dc66edf9b267b592425fbd10e39c5606e26 (patch) | |
tree | 4cb0306735fcd7098fc5c1e19aa589cd00aa4269 /t/re | |
parent | 69e2275ee45c7633c05736b212acc0cb7ca08a59 (diff) | |
download | perl-52c17dc66edf9b267b592425fbd10e39c5606e26.tar.gz |
t/re/regexp.t: Silence HP-UX warnings
The tests that use t/re/re_tests may use a locale. It doesn't much
matter which locale, except we want one that isn't going to generate
warnings.
Diffstat (limited to 't/re')
-rw-r--r-- | t/re/regexp.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/t/re/regexp.t b/t/re/regexp.t index 835cbdc668..037d7b7a48 100644 --- a/t/re/regexp.t +++ b/t/re/regexp.t @@ -71,6 +71,13 @@ BEGIN { print("1..0 # Skip Unicode tables not built yet\n"), exit unless eval 'require "unicore/Heavy.pl"'; } + + # Some of the tests need a locale; which one doesn't much matter, except + # that it be valid. Make sure of that + eval { require POSIX; + POSIX->import(qw(LC_ALL setlocale)); + POSIX::setlocale(&LC_ALL, "C"); + }; } sub _comment { |