},
'Unicode::Normalize' => {
- 'DISTRIBUTION' => 'SADAHIRO/Unicode-Normalize-1.16.tar.gz',
+ 'DISTRIBUTION' => 'SADAHIRO/Unicode-Normalize-1.17.tar.gz',
'FILES' => q[cpan/Unicode-Normalize],
'EXCLUDED' => [
qw( MANIFEST.N
Revision history for Perl extension Unicode::Normalize.
+1.17 Sat Oct 5 11:36:43 2013
+ - assertion using unpack
+
1.16 Sun Nov 4 17:23:03 2012
- XSUB: use PERL_NO_GET_CONTEXT (see perlguts)
(see [rt.cpan.org #80312])
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;
no warnings 'utf8';
-our $VERSION = '1.16';
+our $VERSION = '1.17';
our $PACKAGE = __PACKAGE__;
our @EXPORT = qw( NFC NFD NFKC NFKD );
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
-Unicode/Normalize version 1.16
+Unicode/Normalize version 1.17
===================================
Unicode::Normalize - Unicode Normalization Forms
use File::Spec;
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";
+ }
}
our $PACKAGE = 'Unicode::Normalize, mkheader';
BEGIN {
- unless ("A" eq pack('U', 0x41)) {
- print "1..0 # Unicode::Normalize " .
- "cannot stringify a Unicode code point\n";
+ unless ('A' eq pack('U', 0x41)) {
+ print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
+ exit 0;
+ }
+ unless (0x41 == unpack('U', 'A')) {
+ print "1..0 # Unicode::Normalize cannot get a Unicode code point\n";
exit 0;
}
}
BEGIN {
- unless ("A" eq pack('U', 0x41)) {
- print "1..0 # Unicode::Normalize " .
- "cannot stringify a Unicode code point\n";
+ unless ('A' eq pack('U', 0x41)) {
+ print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
+ exit 0;
+ }
+ unless (0x41 == unpack('U', 'A')) {
+ print "1..0 # Unicode::Normalize cannot get a Unicode code point\n";
exit 0;
}
}
BEGIN {
- unless ("A" eq pack('U', 0x41)) {
- print "1..0 # Unicode::Normalize " .
- "cannot stringify a Unicode code point\n";
+ unless ('A' eq pack('U', 0x41)) {
+ print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
+ exit 0;
+ }
+ unless (0x41 == unpack('U', 'A')) {
+ print "1..0 # Unicode::Normalize cannot get a Unicode code point\n";
exit 0;
}
}
BEGIN {
- unless ("A" eq pack('U', 0x41)) {
- print "1..0 # Unicode::Normalize " .
- "cannot stringify a Unicode code point\n";
+ unless ('A' eq pack('U', 0x41)) {
+ print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
+ exit 0;
+ }
+ unless (0x41 == unpack('U', 'A')) {
+ print "1..0 # Unicode::Normalize cannot get a Unicode code point\n";
exit 0;
}
}
BEGIN {
- unless ("A" eq pack('U', 0x41)) {
- print "1..0 # Unicode::Normalize " .
- "cannot stringify a Unicode code point\n";
+ unless ('A' eq pack('U', 0x41)) {
+ print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
+ exit 0;
+ }
+ unless (0x41 == unpack('U', 'A')) {
+ print "1..0 # Unicode::Normalize cannot get a Unicode code point\n";
exit 0;
}
}
BEGIN {
- unless ("A" eq pack('U', 0x41)) {
- print "1..0 # Unicode::Normalize " .
- "cannot stringify a Unicode code point\n";
+ unless ('A' eq pack('U', 0x41)) {
+ print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
+ exit 0;
+ }
+ unless (0x41 == unpack('U', 'A')) {
+ print "1..0 # Unicode::Normalize cannot get a Unicode code point\n";
exit 0;
}
}
BEGIN {
- unless ("A" eq pack('U', 0x41)) {
- print "1..0 # Unicode::Normalize " .
- "cannot stringify a Unicode code point\n";
+ unless ('A' eq pack('U', 0x41)) {
+ print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
+ exit 0;
+ }
+ unless (0x41 == unpack('U', 'A')) {
+ print "1..0 # Unicode::Normalize cannot get a Unicode code point\n";
exit 0;
}
}
BEGIN {
- unless ("A" eq pack('U', 0x41)) {
- print "1..0 # Unicode::Normalize " .
- "cannot stringify a Unicode code point\n";
+ unless ('A' eq pack('U', 0x41)) {
+ print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
+ exit 0;
+ }
+ unless (0x41 == unpack('U', 'A')) {
+ print "1..0 # Unicode::Normalize cannot get a Unicode code point\n";
exit 0;
}
}
BEGIN {
- unless ("A" eq pack('U', 0x41)) {
- print "1..0 # Unicode::Normalize " .
- "cannot stringify a Unicode code point\n";
+ unless ('A' eq pack('U', 0x41)) {
+ print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
+ exit 0;
+ }
+ unless (0x41 == unpack('U', 'A')) {
+ print "1..0 # Unicode::Normalize cannot get a Unicode code point\n";
exit 0;
}
}
BEGIN {
- unless ("A" eq pack('U', 0x41)) {
- print "1..0 # Unicode::Normalize " .
- "cannot stringify a Unicode code point\n";
+ unless ('A' eq pack('U', 0x41)) {
+ print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
+ exit 0;
+ }
+ unless (0x41 == unpack('U', 'A')) {
+ print "1..0 # Unicode::Normalize cannot get a Unicode code point\n";
exit 0;
}
}
BEGIN {
- unless ("A" eq pack('U', 0x41)) {
- print "1..0 # Unicode::Normalize " .
- "cannot stringify a Unicode code point\n";
+ unless ('A' eq pack('U', 0x41)) {
+ print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
+ exit 0;
+ }
+ unless (0x41 == unpack('U', 'A')) {
+ print "1..0 # Unicode::Normalize cannot get a Unicode code point\n";
exit 0;
}
}
BEGIN {
- unless ("A" eq pack('U', 0x41)) {
- print "1..0 # Unicode::Normalize " .
- "cannot stringify a Unicode code point\n";
+ unless ('A' eq pack('U', 0x41)) {
+ print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
+ exit 0;
+ }
+ unless (0x41 == unpack('U', 'A')) {
+ print "1..0 # Unicode::Normalize cannot get a Unicode code point\n";
exit 0;
}
}