diff options
Diffstat (limited to 'ext/re')
| -rw-r--r-- | ext/re/t/re_funcs_u.t | 2 | ||||
| -rw-r--r-- | ext/re/t/reflags.t | 6 |
2 files changed, 7 insertions, 1 deletions
diff --git a/ext/re/t/re_funcs_u.t b/ext/re/t/re_funcs_u.t index 3eec2894d0..706437ec18 100644 --- a/ext/re/t/re_funcs_u.t +++ b/ext/re/t/re_funcs_u.t @@ -92,6 +92,7 @@ if ('1234'=~/(?:(?<A>\d)|(?<C>!))(?<B>\d)(?<A>\d)(?<B>\d)/){ SKIP: { skip_if_miniperl("no dynamic loading on miniperl, no POSIX", 3); + skip 'No locale testing without d_setlocale', 3 if(!$Config::Config{d_setlocale}); require POSIX; my $current_locale = POSIX::setlocale( &POSIX::LC_CTYPE, 'de_DE.ISO-8859-1' ); if ( !$current_locale || $current_locale ne 'de_DE.ISO-8859-1' ) { @@ -108,6 +109,7 @@ if ('1234'=~/(?:(?<A>\d)|(?<C>!))(?<B>\d)(?<A>\d)(?<B>\d)/){ SKIP: { skip_if_miniperl("no dynamic loading on miniperl, no POSIX", 3); + skip 'No locale testing without d_setlocale', 3 if(!$Config::Config{d_setlocale}); require POSIX; my $current_locale = POSIX::setlocale( &POSIX::LC_CTYPE, 'C' ); if ( !$current_locale || $current_locale ne 'C' ) { diff --git a/ext/re/t/reflags.t b/ext/re/t/reflags.t index b2cbf80d38..482b2c8066 100644 --- a/ext/re/t/reflags.t +++ b/ext/re/t/reflags.t @@ -60,7 +60,11 @@ SKIP: { ) { skip "no locale support", 7 } - use locale; + BEGIN { + if($Config::Config{d_setlocale}) { + require locale; import locale; + } + } use re '/u'; is qr//, '(?^u:)', 'use re "/u" with active locale'; no re '/u'; |