diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-03-19 11:01:57 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-03-05 21:48:24 -0700 |
| commit | ece2b3f8831561e207746d9e0090998e0381d80b (patch) | |
| tree | f8fbaa36bd62b6d61df3f2fd1ff3f5c8500bbe58 /lib/feature | |
| parent | c9674c0fbc59e7957ef30e6695ed3270f75f44f9 (diff) | |
| download | perl-ece2b3f8831561e207746d9e0090998e0381d80b.tar.gz | |
feature/unicode_strings.t: Generalize to work on non-ASCII platforms
Diffstat (limited to 'lib/feature')
| -rw-r--r-- | lib/feature/unicode_strings.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/feature/unicode_strings.t b/lib/feature/unicode_strings.t index ce3f22579e..186dcf26a5 100644 --- a/lib/feature/unicode_strings.t +++ b/lib/feature/unicode_strings.t @@ -225,7 +225,7 @@ for my $i (0 .. 255) { # With the legacy, nothing above 128 should be in the # class - if ($i >= 128) { + if (utf8::native_to_unicode($i) >= 128) { $expect_success = 0; $expect_success = ! $expect_success if $complement; $expect_success = ! $expect_success if $complement_class; @@ -259,7 +259,7 @@ for my $i (0 .. 255) { no feature 'unicode_strings'; $prefix = "no uni8bit; Verify $string"; - if ($i >= 128) { + if (utf8::native_to_unicode($i) >= 128) { $expect_success = 1; $expect_success = ! $expect_success if $complement; } |