view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.004     2015-04-21 12:33:33-04:00 America/New_York

  [Changed]

  - If iterating a distribution throws an exception, it will be caught
    and a warning issued instead.  This prevents an error from interrupting
    an entire run.

  - If the extracted directory lacks an executable permission, try
    chmod +x before chdir into it.

0.003     2012-04-04 16:34:47 America/New_York

  - Fix bug in 'match' validation for select()

0.002     2010-09-03 11:10:47 EST5EDT

  - Synopsis typo fixes

  - Converted to Dist::Zilla for distribution management

lib/CPAN/Visitor.pm  view on Meta::CPAN

}

sub _enter {
  my $job = shift;
  my $curdir = Path::Class::dir()->absolute;
  my $target_dir = $job->{result}{extract} or return;
  if ( -d $target_dir ) {
    unless ( -x $target_dir ) {
        warn "Directory '$target_dir' missing +x; trying to fix it\n"
            unless $job->{quiet};
        chmod 0755, $target_dir;
    }
    chdir $target_dir;
  }
  else {
    warn "Can't chdir to directory '$target_dir'\n"
      unless $job->{quiet};
    return;
  }
  return $curdir;
}