diff options
Diffstat (limited to 'ext/Unicode')
| -rw-r--r-- | ext/Unicode/Normalize/Changes | 5 | ||||
| -rw-r--r-- | ext/Unicode/Normalize/Normalize.pm | 15 | ||||
| -rw-r--r-- | ext/Unicode/Normalize/Normalize.xs | 1 |
3 files changed, 20 insertions, 1 deletions
diff --git a/ext/Unicode/Normalize/Changes b/ext/Unicode/Normalize/Changes index 9772a5274b..844ac391bf 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 eb6f3d9c2b..6e161d3e24 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 4989895044..987a839162 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: |