The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
Changes 03
META.json 22
META.yml 66
UUID.h 12
UUID.pm 33
UUID.xs 11
6 files changed (This is a version diff) 1317
@@ -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);