Change 19915 by [EMAIL PROTECTED] on 2003/07/01 16:22:09
Upgrade to Unicode::Normalize 0.23.
Affected files ...
... //depot/perl/ext/Unicode/Normalize/Changes#10 edit
... //depot/perl/ext/Unicode/Normalize/Normalize.pm#16 edit
... //depot/perl/ext/Unicode/Normalize/Normalize.xs#12 edit
Differences ...
==== //depot/perl/ext/Unicode/Normalize/Changes#10 (text) ====
Index: perl/ext/Unicode/Normalize/Changes
--- perl/ext/Unicode/Normalize/Changes#9~19735~ Mon Jun 9 22:27:33 2003
+++ perl/ext/Unicode/Normalize/Changes Tue Jul 1 09:22:09 2003
@@ -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().
==== //depot/perl/ext/Unicode/Normalize/Normalize.pm#16 (text) ====
Index: perl/ext/Unicode/Normalize/Normalize.pm
--- perl/ext/Unicode/Normalize/Normalize.pm#15~19735~ Mon Jun 9 22:27:33 2003
+++ perl/ext/Unicode/Normalize/Normalize.pm Tue Jul 1 09:22:09 2003
@@ -11,7 +11,7 @@
use warnings;
use Carp;
-our $VERSION = '0.22';
+our $VERSION = '0.23';
our $PACKAGE = __PACKAGE__;
require Exporter;
@@ -102,6 +102,19 @@
$NFKC_string = normalize('KC', $string); # Normalization Form KC
=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
==== //depot/perl/ext/Unicode/Normalize/Normalize.xs#12 (text) ====
Index: perl/ext/Unicode/Normalize/Normalize.xs
--- perl/ext/Unicode/Normalize/Normalize.xs#11~19735~ Mon Jun 9 22:27:33 2003
+++ perl/ext/Unicode/Normalize/Normalize.xs Tue Jul 1 09:22:09 2003
@@ -378,6 +378,7 @@
}
uvS = uv;
} /* for */
+ *d = '\0';
SvCUR_set(dst, d - (U8*)SvPVX(dst));
RETVAL = dst;
OUTPUT:
End of Patch.
