ossp-pkg/uuid/perl/uuid.pm 1.7 -> 1.8
--- uuid.pm 2005/01/23 11:28:54 1.7
+++ uuid.pm 2005/01/23 12:38:10 1.8
@@ -61,6 +61,7 @@
UUID_MAKE_V1
UUID_MAKE_V3
UUID_MAKE_V4
+ UUID_MAKE_V5
UUID_MAKE_MC
UUID_FMT_BIN
UUID_FMT_STR
@@ -136,12 +137,13 @@
if ($spec eq 'v1') { $mode_code |= $self->UUID_MAKE_V1; }
elsif ($spec eq 'v3') { $mode_code |= $self->UUID_MAKE_V3; }
elsif ($spec eq 'v4') { $mode_code |= $self->UUID_MAKE_V4; }
+ elsif ($spec eq 'v5') { $mode_code |= $self->UUID_MAKE_V5; }
elsif ($spec eq 'mc') { $mode_code |= $self->UUID_MAKE_MC; }
else { croak("invalid mode specification \"$spec\""); }
}
- if ($mode_code & $self->UUID_MAKE_V3) {
+ if (($mode_code & $self->UUID_MAKE_V3) or ($mode_code & $self->UUID_MAKE_V5)) {
if (not (ref($valist[0]) and $valist[0]->isa("OSSP::uuid"))) {
- croak("UUID_MAKE_V3 requires namespace argument to be OSSP::uuid object");
+ croak("UUID_MAKE_V3/UUID_MAKE_V5 requires namespace argument to be OSSP::uuid object");
}
my $ns = $valist[0]->{-uuid};
my $name = $valist[1];
|
|
