Upgrade to Unicode::Normalize 0.23.

[perl5.git] / ext / Unicode / Normalize / Normalize.xs

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: