Relax permissions on DB directories (github 22).

Changes

@@ -5,6 +5,7 @@ Devel::Cover history
  - Handle RE metachars in build directory (rt 75633 & 77598)
      (dcoupal@cisco.com & Niko Tyni <ntyni@debian.org>).
  - Return to starting directory after cover report (John Lightsey) (rt 61515).
+ - Relax permissions on DB directories (github 22).
 
 Release 0.88 - 8th June 2012
  - Add -launch option to open report in appropriate viewer (Stephen Thirlwall).

lib/Devel/Cover.pm

@@ -338,7 +338,7 @@ sub import
         $Dir = $1 if Cwd::getcwd() =~ /(.*)/;
     }
 
-    unless (mkdir $DB, 0700)
+    unless (mkdir $DB)
     {
         die "Can't mkdir $DB: $!" unless -d $DB;
     }
@@ -769,7 +769,7 @@ sub _report
     );
 
     my $dbrun = "$DB/runs";
-    unless (mkdir $dbrun, 0700)
+    unless (mkdir $dbrun)
     {
         die "Can't mkdir $dbrun $!" unless -d $dbrun;
     }

lib/Devel/Cover/DB.pm

@@ -98,7 +98,7 @@ sub write
     $self->{db} = shift if @_;
 
     croak "No db specified" unless length $self->{db};
-    unless (mkdir $self->{db}, 0700)
+    unless (mkdir $self->{db})
     {
         croak "Can't mkdir $self->{db}: $!\n" unless -d $self->{db};
     }

lib/Devel/Cover/DB/Structure.pm

@@ -87,7 +87,7 @@ sub AUTOLOAD
 sub debuglog {
     my $self = shift;
     my $dir = "$self->{base}/debuglog";
-    unless (mkdir $dir, 0700)
+    unless (mkdir $dir)
     {
         confess "Can't mkdir $dir: $!" unless -d $dir;
     }
@@ -271,7 +271,7 @@ sub write
     my ($dir) = @_;
     # print STDERR Dumper $self;
     $dir .= "/structure";
-    unless (mkdir $dir, 0700)
+    unless (mkdir $dir)
     {
         confess "Can't mkdir $dir: $!" unless -d $dir;
     }