From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Fri, 15 Jun 2012 01:20:00 +0000 (-0500)
Subject: fix tests on solaris
X-Git-Tag: v0.08197~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=027e3cc615a8cda0282f5b0652dba6fe83db3382;p=dbsrgits%2FDBIx-Class.git

fix tests on solaris
---

diff --git a/t/lib/DBICTest.pm b/t/lib/DBICTest.pm
index ff8db7f..a0d9d63 100644
--- a/t/lib/DBICTest.pm
+++ b/t/lib/DBICTest.pm
@@ -9,7 +9,7 @@ use DBICTest::Util qw/populate_weakregistry assert_empty_weakregistry local_umas
 use Carp;
 use Path::Class::File ();
 use File::Spec;
-use Fcntl qw/:flock/;
+use Fcntl qw/:DEFAULT :flock/;
 
 =head1 NAME
 
@@ -64,7 +64,7 @@ sub import {
 
     {
       my $u = local_umask(0); # so that the file opens as 666, and any user can lock
-      open ($global_lock_fh, '>', $lockpath)
+      sysopen ($global_lock_fh, $lockpath, O_RDWR|O_CREAT)
         or die "Unable to open $lockpath: $!";
     }