From 5ee924afc3aff6f8030a3a5523bb7d3f7f69fc52 Mon Sep 17 00:00:00 2001

From: Jitka Plesnikova <jplesnik@redhat.com>

Date: Thu, 24 May 2018 12:07:22 +0200

Subject: [PATCH] Upgrade to 1.26

---

 Changes      |  3 +++

 Makefile.PL  |  2 +-

 Normalize.pm | 22 +++++++++++-----------

 3 files changed, 15 insertions(+), 12 deletions(-)

diff --git a/Changes b/Changes

index ead5b3e..22ec16e 100644

--- a/Changes

+++ b/Changes

@@ -1,5 +1,8 @@

 Revision history for Perl extension Unicode::Normalize.

+1.26  *** RELEASE DATE HERE ***

+    - Switch to XSLoader from Dynaloader

+

 1.25  Wed Dec 16 03:05:57 UTC 2015

     - Fix Normalize.xs to work on releases earlier than 5.8.  The problem was

       introduced in this module's version 1.24

diff --git a/Makefile.PL b/Makefile.PL

index 44a4b8d..18bc2e2 100644

--- a/Makefile.PL

+++ b/Makefile.PL

@@ -8,7 +8,7 @@ my $mm_ver = ExtUtils::MakeMaker->VERSION;

 if (-f "Normalize.xs") {

     print STDERR "Making header files for XS...\n";

-    do 'mkheader' or die $@ || "mkheader: $!";

+    do './mkheader' or die $@ || "mkheader: $!";

     $clean = { FILES => 'unfcan.h unfcmb.h unfcmp.h unfcpt.h unfexc.h' };

 }

diff --git a/Normalize.pm b/Normalize.pm

index ff6c0f0..adf3db5 100644

--- a/Normalize.pm

+++ b/Normalize.pm

@@ -16,7 +16,7 @@ use Carp;

 no warnings 'utf8';

-our $VERSION = '1.25';

+our $VERSION = '1.26';

 our $PACKAGE = __PACKAGE__;

 our @EXPORT = qw( NFC NFD NFKC NFKD );

@@ -56,9 +56,9 @@ require Exporter;

 ##### The above part is common to XS and PP #####

-our @ISA = qw(Exporter DynaLoader);

-require DynaLoader;

-bootstrap Unicode::Normalize $VERSION;

+our @ISA = qw(Exporter);

+use XSLoader ();

+XSLoader::load( 'Unicode::Normalize', $VERSION );

 ##### The below part is common to XS and PP #####

@@ -161,7 +161,7 @@ Unicode::Normalize - Unicode Normalization Forms

 Parameters:

-C<$string> is used as a string under character semantics (see F<perlunicode>).

+C<$string> is used as a string under character semantics (see L<perlunicode>).

 C<$code_point> should be an unsigned integer representing a Unicode code point.

@@ -238,8 +238,8 @@ the decomposition is compatibility decomposition.

 The string returned is not always in NFD/NFKD. Reordering may be required.

-    $NFD_string  = reorder(decompose($string));       # eq. to NFD()

-    $NFKD_string = reorder(decompose($string, TRUE)); # eq. to NFKD()

+ $NFD_string  = reorder(decompose($string));       # eq. to NFD()

+ $NFKD_string = reorder(decompose($string, TRUE)); # eq. to NFKD()

 =item C<$reordered_string = reorder($string)>

@@ -277,12 +277,12 @@ should be equal to the entire C<$normalized>.

 When you have a C<$normalized> string and an C<$unnormalized> string

 following it, a simple concatenation is wrong:

-    $concat = $normalized . normalize($form, $unnormalized); # wrong!

+ $concat = $normalized . normalize($form, $unnormalized); # wrong!

 Instead of it, do like this:

-    ($processed, $unprocessed) = splitOnLastStarter($normalized);

-     $concat = $processed . normalize($form, $unprocessed.$unnormalized);

+ ($processed, $unprocessed) = splitOnLastStarter($normalized);

+ $concat = $processed . normalize($form,$unprocessed.$unnormalized);

 C<splitOnLastStarter()> should be called with a pre-normalized parameter

 C<$normalized>, that is in the same form as C<$form> you want.

@@ -548,7 +548,7 @@ compiled into your perl.  The following table lists the default Unicode

 version that comes with various perl versions.  (It is possible to change

 the Unicode version in any perl version to be any earlier Unicode version,

 so one could cause Unicode 3.2 to be used in any perl version starting with

-5.8.0.  See C<$Config{privlib}>/F<unicore/README.perl>.

+5.8.0.  Read F<C<$Config{privlib}>/unicore/README.perl> for details.

     perl's version     implemented Unicode version

        5.6.1              3.0.1

-- 

2.14.3