diff options
| author | Karl Williamson <khw@cpan.org> | 2017-07-03 13:46:42 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2017-07-12 21:14:23 -0600 |
| commit | 1ddd0324d8c362b22a8000c5d0c115397a556f59 (patch) | |
| tree | 75b9a77b07a66d3fc60cfe8ef012322018a77b31 /t/lib/warnings | |
| parent | 76513bdc5d9e7bddc7d5da43b64755a51aea8673 (diff) | |
| download | perl-1ddd0324d8c362b22a8000c5d0c115397a556f59.tar.gz | |
Restore a portion of reverted commits
See the previous commit for details.
Diffstat (limited to 't/lib/warnings')
| -rw-r--r-- | t/lib/warnings/utf8 | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/t/lib/warnings/utf8 b/t/lib/warnings/utf8 index 64f08290de..2bd59f6645 100644 --- a/t/lib/warnings/utf8 +++ b/t/lib/warnings/utf8 @@ -99,12 +99,11 @@ Operation "uc" returns its argument for non-Unicode code point 0x110000 at - lin Operation "uc" returns its argument for UTF-16 surrogate U+D800 at - line 5. ######## use warnings 'utf8'; -no warnings 'deprecated'; # This is above IV_MAX on 32 bit machines -my $big_nonUnicode = uc(chr(0x8000_0000)); +my $big_nonUnicode = uc(chr(0x7FFF_FFFF)); no warnings 'non_unicode'; -my $big_nonUnicode = uc(chr(0x8000_0000)); +my $big_nonUnicode = uc(chr(0x7FFF_FFFF)); EXPECT -Operation "uc" returns its argument for non-Unicode code point 0x80000000 at - line 3. +Operation "uc" returns its argument for non-Unicode code point 0x7FFFFFFF at - line 2. ######## use warnings 'utf8'; my $d7ff = lc pack("U", 0xD7FF); |