Permalink
Browse files

Relax permissions on DB directories (github 22).

  • Loading branch information...
1 parent f14333e commit 97a63403819ee528c3732a3807f75c5eb3b19ec9 @pjcj committed Jun 14, 2012
Showing with 6 additions and 5 deletions.
  1. +1 −0 Changes
  2. +2 −2 lib/Devel/Cover.pm
  3. +1 −1 lib/Devel/Cover/DB.pm
  4. +2 −2 lib/Devel/Cover/DB/Structure.pm
View
@@ -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).
View
@@ -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;
}
View
@@ -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};
}
@@ -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;
}

0 comments on commit 97a6340

Please sign in to comment.