diff options
| author | Karl Williamson <khw@cpan.org> | 2019-12-05 13:16:22 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-12-14 13:22:56 -0700 |
| commit | 04f3bbde6d6b93956a689555a665a47db71fd3ed (patch) | |
| tree | 370cdf801ca06a21ec26d8ba45e57b63b660f04a | |
| parent | 17266e725b883d88ea0e455761708c0b57cc5b39 (diff) | |
| download | perl-04f3bbde6d6b93956a689555a665a47db71fd3ed.tar.gz | |
t/re/pat.t: White-space only
| -rw-r--r-- | t/re/pat.t | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/t/re/pat.t b/t/re/pat.t index b03749e3f2..8045ed43fd 100644 --- a/t/re/pat.t +++ b/t/re/pat.t @@ -1465,13 +1465,13 @@ EOP utf8::upgrade($pat) if $utf8; my $should_pass = ( $charset eq 'u' - || ($charset eq 'd' && $utf8) - || ($charset eq 'd' && ( $char =~ /[[:ascii:]]/ - || ord $char > 255)) - || ($charset eq 'aa' && $char =~ /[[:ascii:]]/) - || ($charset eq 'l' && $locale ne 'C') - || ($charset eq 'l' && $char =~ /[[:ascii:]]/) - ); + || ($charset eq 'd' && $utf8) + || ($charset eq 'd' && ( $char =~ /[[:ascii:]]/ + || ord $char > 255)) + || ($charset eq 'aa' && $char =~ /[[:ascii:]]/) + || ($charset eq 'l' && $locale ne 'C') + || ($charset eq 'l' && $char =~ /[[:ascii:]]/) + ); my $name = "(?i$charset), utf8=$utf8, locale=$locale," . " char=" . sprintf "%x", ord $char; no warnings 'locale'; |