diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Unicode/Normalize.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Unicode/Normalize.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/Unicode/Normalize.pm b/Master/tlpkg/tlperl/lib/Unicode/Normalize.pm index d0f35a914df..2331e8b7069 100644 --- a/Master/tlpkg/tlperl/lib/Unicode/Normalize.pm +++ b/Master/tlpkg/tlperl/lib/Unicode/Normalize.pm @@ -1,9 +1,12 @@ package Unicode::Normalize; BEGIN { - unless ("A" eq pack('U', 0x41)) { + unless ('A' eq pack('U', 0x41)) { die "Unicode::Normalize cannot stringify a Unicode code point\n"; } + unless (0x41 == unpack('U', 'A')) { + die "Unicode::Normalize cannot get Unicode code point\n"; + } } use 5.006; @@ -13,7 +16,7 @@ use Carp; no warnings 'utf8'; -our $VERSION = '1.16'; +our $VERSION = '1.17'; our $PACKAGE = __PACKAGE__; our @EXPORT = qw( NFC NFD NFKC NFKD ); @@ -548,9 +551,10 @@ normalization implemented by this module depends on your perl's version. 5.8.7-5.8.8 4.1.0 5.10.0 5.0.0 5.8.9, 5.10.1 5.1.0 - 5.12.0-5.12.3 5.2.0 + 5.12.x 5.2.0 5.14.x 6.0.0 5.16.x 6.1.0 + 5.18.x 6.2.0 =item Correction of decomposition mapping |