diff options
| author | Karl Williamson <khw@cpan.org> | 2016-11-01 22:13:21 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-11-02 15:49:29 -0600 |
| commit | 22123136705b458f89846c8e559433731724adf7 (patch) | |
| tree | ceb4b1d8054f8e914c8aac86981032a2618dcb66 /ext | |
| parent | c8d6633c09cc20070ed5f0a632bf0717748dd6a2 (diff) | |
| download | perl-22123136705b458f89846c8e559433731724adf7.tar.gz | |
APItest/t/utf8.t: Correct to uppercase in print
This worked so long as we didn't have hex digits A-F.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS-APItest/t/utf8.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/XS-APItest/t/utf8.t b/ext/XS-APItest/t/utf8.t index fc04dfcc1a..37a1e32185 100644 --- a/ext/XS-APItest/t/utf8.t +++ b/ext/XS-APItest/t/utf8.t @@ -1420,7 +1420,7 @@ sub nonportable_regex ($) { my $code_point = shift; - my $string = sprintf '(Code point 0x%x is not Unicode, and' + my $string = sprintf '(Code point 0x%X is not Unicode, and' . '|Any UTF-8 sequence that starts with' . ' "(\\\x[[:xdigit:]]{2})+" is for a' . ' non-Unicode code point, and is) not portable', |