Permalink
Browse files

Don't chmod created directories.

  • Loading branch information...
1 parent 527ff39 commit 8b26a6ffee8be0c33f492d715feef5bf2ae09aba @pjcj committed Apr 12, 2010
Showing with 0 additions and 3 deletions.
  1. +0 −3 lib/Devel/Cover.pm
View
@@ -301,9 +301,7 @@ sub import
unless (-d $DB)
{
- # Nasty hack to keep 5.6.1 happy.
mkdir $DB, 0700 or croak "Can't mkdir $DB: $!\n";
- chmod 0700, $DB or croak "Can't chmod $DB: $!\n";
}
$DB = $1 if Cwd::abs_path($DB) =~ /(.*)/;
Devel::Cover::DB->delete($DB) unless $Merge;
@@ -684,7 +682,6 @@ sub report
unless (-d $DB)
{
mkdir $DB, 0700 or croak "Can't mkdir $DB: $!\n";
- chmod 0700, $DB or croak "Can't chmod $DB: $!\n";
}
$DB .= "/$run";

0 comments on commit 8b26a6f

Please sign in to comment.