From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 1 Jul 2003 16:22:09 +0000 (+0000)
Subject: Upgrade to Unicode::Normalize 0.23.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=00f2676f1aefa4f63dc907f8e482842b561116e3;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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: