OSSP CVS Repository

ossp - Difference in ossp-pkg/uuid/perl/uuid.xs versions 1.3 and 1.4
Not logged in
[Honeypot]  [Browse]  [Home]  [Login]  [Reports
[Search]  [Ticket]  [Timeline
  [History

ossp-pkg/uuid/perl/uuid.xs 1.3 -> 1.4

--- uuid.xs      2004/12/31 19:20:39     1.3
+++ uuid.xs      2005/01/23 12:38:10     1.4
@@ -57,6 +57,7 @@
             { "UUID_MAKE_V1", UUID_MAKE_V1 },
             { "UUID_MAKE_V3", UUID_MAKE_V3 },
             { "UUID_MAKE_V4", UUID_MAKE_V4 },
+            { "UUID_MAKE_V5", UUID_MAKE_V5 },
             { "UUID_MAKE_MC", UUID_MAKE_MC },
             { "UUID_FMT_BIN", UUID_FMT_BIN },
             { "UUID_FMT_STR", UUID_FMT_STR },
@@ -126,11 +127,11 @@
         uuid_t *ns;
         const char *name;
     CODE:
-        if (mode & UUID_MAKE_V3) {
+        if ((mode & UUID_MAKE_V3) || (mode & UUID_MAKE_V5)) {
             if (items != 4)
-                croak("mode UUID_MAKE_V3 requires two additional arguments to uuid_make()");
+                croak("mode UUID_MAKE_V3/UUID_MAKE_V5 requires two additional arguments to uuid_make()");
                 if (!SvROK(ST(2)))
-                croak("mode UUID_MAKE_V3 requires a UUID object as namespace");
+                croak("mode UUID_MAKE_V3/UUID_MAKE_V5 requires a UUID object as namespace");
             ns   = INT2PTR(uuid_t *, SvIV((SV*)SvRV(ST(2))));
             name = (const char *)SvPV_nolen(ST(3));
             RETVAL = uuid_make(uuid, mode, ns, name);

CVSTrac 2.0.1