@@ -1,5 +1,8 @@
Revision history for Perl extension Data::UUID.
+1.220 2014-12-15
+ - improve chances it'll work on Android (thanks, Brian Fraser)
+
1.219 2013-07-06
- cygwin fixes (thanks, Reini Urban!)
- Skip t/threads.t unless perl version is 5.13.4 or greater (thanks, VPIT)
@@ -4,7 +4,7 @@
"Ricardo Signes <rjbs[at]cpan.org>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 6.68, CPAN::Meta::Converter version 2.131560",
+ "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.143240",
"license" : [
"bsd"
],
@@ -45,5 +45,5 @@
"url" : "https://github.com/rjbs/Data-UUID"
}
},
- "version" : "1.219"
+ "version" : "1.220"
}
@@ -3,23 +3,23 @@ abstract: 'Globally/Universally Unique Identifiers (GUIDs/UUIDs)'
author:
- 'Ricardo Signes <rjbs[at]cpan.org>'
build_requires:
- ExtUtils::MakeMaker: 0
+ ExtUtils::MakeMaker: '0'
configure_requires:
- ExtUtils::MakeMaker: 0
+ ExtUtils::MakeMaker: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.68, CPAN::Meta::Converter version 2.131560'
+generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.143240'
license: bsd
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: Data-UUID
no_index:
directory:
- t
- inc
requires:
- Digest::MD5: 0
+ Digest::MD5: '0'
resources:
bugtracker: https://github.com/rjbs/Data-UUID/issues
repository: https://github.com/rjbs/Data-UUID
-version: 1.219
+version: '1.220'
@@ -98,7 +98,8 @@ typedef int pid_t;
#endif /* _MSC_VER */
typedef unsigned64_t perl_uuid_time_t;
-#if defined __solaris__ || defined __linux__
+/* Android's lic provides neither lockf nor any of the related constants */
+#if (defined __solaris__ || defined __linux__) && !defined(__android__)
# define LOCK(f) lockf(fileno(f),F_LOCK,0);
# define UNLOCK(f) lockf(fileno(f),F_ULOCK,0);
#elif defined __darwin__
@@ -15,7 +15,7 @@ our @EXPORT = qw(
NameSpace_URL
NameSpace_X500
);
-our $VERSION = '1.219';
+our $VERSION = '1.220';
bootstrap Data::UUID $VERSION;
@@ -37,7 +37,7 @@ programer.
use Data::UUID;
- $ug = new Data::UUID;
+ $ug = Data::UUID->new;
$uuid1 = $ug->create();
$uuid2 = $ug->create_from_name(<namespace>, <name>);
@@ -126,7 +126,7 @@ Examples:
# this creates a new UUID in string form, based on the standard namespace
# UUID NameSpace_URL and name "www.mycompany.com"
- $ug = new Data::UUID;
+ $ug = Data::UUID->new;
print $ug->create_from_name_str(NameSpace_URL, "www.mycompany.com");
=head2 EXPORT
@@ -199,7 +199,7 @@ static void get_random_info(unsigned char seed[16]) {
#else
# if defined __BEOS__ || defined __HAIKU__
get_system_info(&r.sys_info);
-# else
+# elif !defined(__ANDROID__)
r.hostid = gethostid();
# endif
gettimeofday(&r.t, (struct timezone *)0);