X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FUUIDColumns.pm;h=487f946380e6d70a551c3614cd34f6e26ebc4b1f;hb=7c374301bb0b8e051d2417eb78dff4c9ce44afd7;hp=768ab155f0f875631ac65dcfbffb5a921bf4c014;hpb=7edcccc1b8f7253f2c2ebce838dcdc20ea8246db;p=dbsrgits%2FDBIx-Class-UUIDColumns.git diff --git a/lib/DBIx/Class/UUIDColumns.pm b/lib/DBIx/Class/UUIDColumns.pm index 768ab15..487f946 100644 --- a/lib/DBIx/Class/UUIDColumns.pm +++ b/lib/DBIx/Class/UUIDColumns.pm @@ -14,7 +14,7 @@ __PACKAGE__->uuid_class(__PACKAGE__->_find_uuid_module); # i.e. first release of 0.XX *must* be 0.XX000. This avoids fBSD ports # brain damage and presumably various other packaging systems too -$VERSION = '0.02004'; +$VERSION = '0.02005'; sub uuid_columns { my $self = shift; @@ -78,6 +78,8 @@ sub _find_uuid_module { return '::Win32::Guidgen'; } elsif (eval{require Win32API::GUID}) { return '::Win32API::GUID'; + } elsif (eval{require UUID::Random}) { + return '::UUID::Random'; } else { die 'no suitable uuid module could be found for use with DBIx::Class::UUIDColumns'; };