In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/65e3945f356f08173c0e9cd73fa27f15288eb58a?hp=9e65c3f47e483ee7e33b5d748a06f4addd830d60>
- Log ----------------------------------------------------------------- commit 65e3945f356f08173c0e9cd73fa27f15288eb58a Author: Chris 'BinGOs' Williams <[email protected]> Date: Sat Oct 5 11:47:14 2013 +0100 Update Unicode-Normalize to CPAN version 1.17 [DELTA] 1.17 Sat Oct 5 11:36:43 2013 - assertion using unpack ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- cpan/Unicode-Normalize/Changes | 3 +++ cpan/Unicode-Normalize/Normalize.pm | 10 +++++++--- cpan/Unicode-Normalize/README | 2 +- cpan/Unicode-Normalize/mkheader | 5 ++++- cpan/Unicode-Normalize/t/fcdc.t | 9 ++++++--- cpan/Unicode-Normalize/t/form.t | 9 ++++++--- cpan/Unicode-Normalize/t/func.t | 9 ++++++--- cpan/Unicode-Normalize/t/illegal.t | 9 ++++++--- cpan/Unicode-Normalize/t/norm.t | 9 ++++++--- cpan/Unicode-Normalize/t/null.t | 9 ++++++--- cpan/Unicode-Normalize/t/partial1.t | 9 ++++++--- cpan/Unicode-Normalize/t/partial2.t | 9 ++++++--- cpan/Unicode-Normalize/t/proto.t | 9 ++++++--- cpan/Unicode-Normalize/t/split.t | 9 ++++++--- cpan/Unicode-Normalize/t/test.t | 9 ++++++--- cpan/Unicode-Normalize/t/tie.t | 9 ++++++--- 17 files changed, 88 insertions(+), 42 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 62c636a..6ad35ff 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1731,7 +1731,7 @@ use File::Glob qw(:case); }, '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 diff --git a/cpan/Unicode-Normalize/Changes b/cpan/Unicode-Normalize/Changes index fabd3c1..dd7cca2 100644 --- a/cpan/Unicode-Normalize/Changes +++ b/cpan/Unicode-Normalize/Changes @@ -1,5 +1,8 @@ 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]) diff --git a/cpan/Unicode-Normalize/Normalize.pm b/cpan/Unicode-Normalize/Normalize.pm index d0f35a9..2331e8b 100644 --- a/cpan/Unicode-Normalize/Normalize.pm +++ b/cpan/Unicode-Normalize/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 diff --git a/cpan/Unicode-Normalize/README b/cpan/Unicode-Normalize/README index 1fcde26..156e730 100644 --- a/cpan/Unicode-Normalize/README +++ b/cpan/Unicode-Normalize/README @@ -1,4 +1,4 @@ -Unicode/Normalize version 1.16 +Unicode/Normalize version 1.17 =================================== Unicode::Normalize - Unicode Normalization Forms diff --git a/cpan/Unicode-Normalize/mkheader b/cpan/Unicode-Normalize/mkheader index c694b7e..6b4b9b9 100644 --- a/cpan/Unicode-Normalize/mkheader +++ b/cpan/Unicode-Normalize/mkheader @@ -24,9 +24,12 @@ use Carp; 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'; diff --git a/cpan/Unicode-Normalize/t/fcdc.t b/cpan/Unicode-Normalize/t/fcdc.t index e62c4ea..d2ef28b 100644 --- a/cpan/Unicode-Normalize/t/fcdc.t +++ b/cpan/Unicode-Normalize/t/fcdc.t @@ -1,8 +1,11 @@ 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; } } diff --git a/cpan/Unicode-Normalize/t/form.t b/cpan/Unicode-Normalize/t/form.t index c9b4249..6bbfb08 100644 --- a/cpan/Unicode-Normalize/t/form.t +++ b/cpan/Unicode-Normalize/t/form.t @@ -1,8 +1,11 @@ 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; } } diff --git a/cpan/Unicode-Normalize/t/func.t b/cpan/Unicode-Normalize/t/func.t index d8d8d95..5e5be5d 100644 --- a/cpan/Unicode-Normalize/t/func.t +++ b/cpan/Unicode-Normalize/t/func.t @@ -1,8 +1,11 @@ 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; } } diff --git a/cpan/Unicode-Normalize/t/illegal.t b/cpan/Unicode-Normalize/t/illegal.t index bcd9517..70e63e3 100644 --- a/cpan/Unicode-Normalize/t/illegal.t +++ b/cpan/Unicode-Normalize/t/illegal.t @@ -1,8 +1,11 @@ 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; } } diff --git a/cpan/Unicode-Normalize/t/norm.t b/cpan/Unicode-Normalize/t/norm.t index 1442c30..d3cec3a 100644 --- a/cpan/Unicode-Normalize/t/norm.t +++ b/cpan/Unicode-Normalize/t/norm.t @@ -1,8 +1,11 @@ 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; } } diff --git a/cpan/Unicode-Normalize/t/null.t b/cpan/Unicode-Normalize/t/null.t index 6067da4..9a00087 100644 --- a/cpan/Unicode-Normalize/t/null.t +++ b/cpan/Unicode-Normalize/t/null.t @@ -1,8 +1,11 @@ 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; } } diff --git a/cpan/Unicode-Normalize/t/partial1.t b/cpan/Unicode-Normalize/t/partial1.t index 56f2ca4..3e44a63 100644 --- a/cpan/Unicode-Normalize/t/partial1.t +++ b/cpan/Unicode-Normalize/t/partial1.t @@ -1,8 +1,11 @@ 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; } } diff --git a/cpan/Unicode-Normalize/t/partial2.t b/cpan/Unicode-Normalize/t/partial2.t index 4d824a4..7f19e93 100644 --- a/cpan/Unicode-Normalize/t/partial2.t +++ b/cpan/Unicode-Normalize/t/partial2.t @@ -1,8 +1,11 @@ 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; } } diff --git a/cpan/Unicode-Normalize/t/proto.t b/cpan/Unicode-Normalize/t/proto.t index 714018a..38c6985 100644 --- a/cpan/Unicode-Normalize/t/proto.t +++ b/cpan/Unicode-Normalize/t/proto.t @@ -1,8 +1,11 @@ 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; } } diff --git a/cpan/Unicode-Normalize/t/split.t b/cpan/Unicode-Normalize/t/split.t index fe579cd..a92957c 100644 --- a/cpan/Unicode-Normalize/t/split.t +++ b/cpan/Unicode-Normalize/t/split.t @@ -1,8 +1,11 @@ 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; } } diff --git a/cpan/Unicode-Normalize/t/test.t b/cpan/Unicode-Normalize/t/test.t index f69c695..cb4b6ea 100644 --- a/cpan/Unicode-Normalize/t/test.t +++ b/cpan/Unicode-Normalize/t/test.t @@ -1,8 +1,11 @@ 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; } } diff --git a/cpan/Unicode-Normalize/t/tie.t b/cpan/Unicode-Normalize/t/tie.t index be1712a..4fdd121 100644 --- a/cpan/Unicode-Normalize/t/tie.t +++ b/cpan/Unicode-Normalize/t/tie.t @@ -1,8 +1,11 @@ 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; } } -- Perl5 Master Repository
