Upgrade to Unicode::Normalize 0.23.

p4raw-id: //depot/perl@19915

diff --git a/ext/Unicode/Normalize/Changes b/ext/Unicode/Normalize/Changes
index 9772a52..844ac39 100644 (file)
--- a/ext/Unicode/Normalize/Changes
+++ b/ext/Unicode/Normalize/Changes
@@ -1,5 +1,10 @@
 Revision history for Perl extension Unicode::Normalize.
 
+0.23  Sat Jun 28 20:38:10 2003
+       - bug fix: \0-terminate in compose() in XS.
+       - tweak in pure perl: forced $codepoint to numeric (i.e. "+0065" to 65)
+       - tweak of POD and README.
+
 0.22  Mon Jun 09 22:23:10 2003
        - internal tweak (again): pack_U() and unpack_U().
 

diff --git a/ext/Unicode/Normalize/Normalize.pm b/ext/Unicode/Normalize/Normalize.pm
index eb6f3d9..6e161d3 100644 (file)
--- a/ext/Unicode/Normalize/Normalize.pm
+++ b/ext/Unicode/Normalize/Normalize.pm
@@ -11,7 +11,7 @@ use strict;
 use warnings;
 use Carp;
 
-our $VERSION = '0.22';
+our $VERSION = '0.23';
 our $PACKAGE = __PACKAGE__;
 
 require Exporter;
@@ -103,6 +103,19 @@ Unicode::Normalize - Unicode Normalization Forms
 
 =head1 DESCRIPTION
 
+Parameters:
+
+C<$string> is used as a string under character semantics
+(see F<perlunicode>).
+
+C<$codepoint> should be an unsigned integer
+representing a Unicode code point.
+
+Note: Between XS edition and pure Perl edition,
+interpretation of C<$codepoint> as a decimal number has incompatibility.
+XS converts C<$codepoint> to an unsigned integer, but pure Perl does not.
+Do not use a floating point nor a negative sign in C<$codepoint>.
+
 =head2 Normalization Forms
 
 =over 4

diff --git a/ext/Unicode/Normalize/Normalize.xs b/ext/Unicode/Normalize/Normalize.xs
index 4989895..987a839 100644 (file)
--- a/ext/Unicode/Normalize/Normalize.xs
+++ b/ext/Unicode/Normalize/Normalize.xs
@@ -378,6 +378,7 @@ compose(arg)
        }
        uvS = uv;
     } /* for */
+    *d = '\0';
     SvCUR_set(dst, d - (U8*)SvPVX(dst));
     RETVAL = dst;
   OUTPUT: