diff options
author | Karl Williamson <khw@cpan.org> | 2021-02-09 11:38:49 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2021-02-11 12:58:44 -0700 |
commit | 39f42f602ea2fc8a89f32a8fc649a4b0d48ecb53 (patch) | |
tree | a1b3a96662204aeec824151591944435000ba738 /t | |
parent | 639a7c3588769b76e7a726b2c099968b81ee4214 (diff) | |
download | perl-39f42f602ea2fc8a89f32a8fc649a4b0d48ecb53.tar.gz |
t/re/charset.t: Rmv unnecessary eval
The called function now does its own eval.
Diffstat (limited to 't')
-rw-r--r-- | t/re/charset.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/re/charset.t b/t/re/charset.t index 84961772a1..4da8e9934d 100644 --- a/t/re/charset.t +++ b/t/re/charset.t @@ -41,7 +41,7 @@ $testcases{'[:word:]'} = $testcases{'\w'}; my $utf8_locale; my @charsets = qw(a d u aa); -my $locales_ok = eval { locales_enabled('LC_CTYPE'); 1 }; +my $locales_ok = locales_enabled('LC_CTYPE'); if (! is_miniperl() && $locales_ok) { require POSIX; my $current_locale = POSIX::setlocale( &POSIX::LC_ALL, "C") // ""; |