Don't chmod created directories.

pjcj · Apr 12, 2010 · 8b26a6f · 8b26a6f
1 parent 527ff39
commit 8b26a6f
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/lib/Devel/Cover.pm b/lib/Devel/Cover.pm
@@ -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";