This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Unicode-Normalize to CPAN version 1.17
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 5 Oct 2013 10:47:14 +0000 (11:47 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 5 Oct 2013 10:47:14 +0000 (11:47 +0100)
  [DELTA]

1.17  Sat Oct  5 11:36:43 2013
    - assertion using unpack

17 files changed:
Porting/Maintainers.pl
cpan/Unicode-Normalize/Changes
cpan/Unicode-Normalize/Normalize.pm
cpan/Unicode-Normalize/README
cpan/Unicode-Normalize/mkheader
cpan/Unicode-Normalize/t/fcdc.t
cpan/Unicode-Normalize/t/form.t
cpan/Unicode-Normalize/t/func.t
cpan/Unicode-Normalize/t/illegal.t
cpan/Unicode-Normalize/t/norm.t
cpan/Unicode-Normalize/t/null.t
cpan/Unicode-Normalize/t/partial1.t
cpan/Unicode-Normalize/t/partial2.t
cpan/Unicode-Normalize/t/proto.t
cpan/Unicode-Normalize/t/split.t
cpan/Unicode-Normalize/t/test.t
cpan/Unicode-Normalize/t/tie.t

index 62c636a..6ad35ff 100755 (executable)
@@ -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
index fabd3c1..dd7cca2 100644 (file)
@@ -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])
index d0f35a9..2331e8b 100644 (file)
@@ -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
 
index 1fcde26..156e730 100644 (file)
@@ -1,4 +1,4 @@
-Unicode/Normalize version 1.16
+Unicode/Normalize version 1.17
 ===================================
 
 Unicode::Normalize - Unicode Normalization Forms
index c694b7e..6b4b9b9 100644 (file)
@@ -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';
index e62c4ea..d2ef28b 100644 (file)
@@ -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;
     }
 }
index c9b4249..6bbfb08 100644 (file)
@@ -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;
     }
 }
index d8d8d95..5e5be5d 100644 (file)
@@ -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;
     }
 }
index bcd9517..70e63e3 100644 (file)
@@ -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;
     }
 }
index 1442c30..d3cec3a 100644 (file)
@@ -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;
     }
 }
index 6067da4..9a00087 100644 (file)
@@ -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;
     }
 }
index 56f2ca4..3e44a63 100644 (file)
@@ -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;
     }
 }
index 4d824a4..7f19e93 100644 (file)
@@ -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;
     }
 }
index 714018a..38c6985 100644 (file)
@@ -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;
     }
 }
index fe579cd..a92957c 100644 (file)
@@ -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;
     }
 }
index f69c695..cb4b6ea 100644 (file)
@@ -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;
     }
 }
index be1712a..4fdd121 100644 (file)
@@ -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;
     }
 }