Index: ossp-pkg/uuid/ChangeLog
RCS File: /v/ossp/cvs/ossp-pkg/uuid/Attic/ChangeLog,v
rcsdiff -q -kk '-r1.108' '-r1.109' -u '/v/ossp/cvs/ossp-pkg/uuid/Attic/ChangeLog,v' 2>/dev/null
--- ChangeLog	2006/02/23 13:32:46	1.108
+++ ChangeLog	2006/03/13 09:14:23	1.109
@@ -12,6 +12,10 @@
   For a more brief summary please have a look at the NEWS file.
 
   Changes between 1.4.1 and 1.4.2 (07-Feb-2006 to xx-Feb-2006)
+
+   o Fix Perl API's "export" function by not taking over NUL-termination
+     character under UUID_FMT_TXT.
+     [Thomas Lotterer <thomas@lotterer.net>]
    
    o Declare "install", "uninstall" and "clean" make(1) targets
      ".PHONY". This especially workarounds problems on case insensitive
Index: ossp-pkg/uuid/perl/uuid.xs
RCS File: /v/ossp/cvs/ossp-pkg/uuid/perl/Attic/uuid.xs,v
rcsdiff -q -kk '-r1.6' '-r1.7' -u '/v/ossp/cvs/ossp-pkg/uuid/perl/Attic/uuid.xs,v' 2>/dev/null
--- uuid.xs	2006/02/07 08:19:15	1.6
+++ uuid.xs	2006/03/13 09:14:23	1.7
@@ -201,7 +201,7 @@
         data_len = 0;
         RETVAL = uuid_export(uuid, fmt, &data_ptr, &data_len);
         if (RETVAL == UUID_RC_OK) {
-            if (fmt == UUID_FMT_STR)
+            if (fmt == UUID_FMT_STR || fmt == UUID_FMT_TXT)
                 data_len--; /* Perl doesn't wish NUL-termination on strings */
             sv_setpvn(ST(2), data_ptr, data_len);
             free(data_ptr);