view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  - No more Module::Build
  - Fixed test failures on Windows
  - Typo fixed
     RT#86588: https://rt.cpan.org/Public/Bug/Display.html?id=86588
     (reported by David Steinbrunner)

0.205 Nov 22, 2014
  - Fixed test failures

0.204 Aug 04, 2014
  - Fixed problem with locked database in DBD::SQLite 1.38_01 and higher
     RT#90635: https://rt.cpan.org/Ticket/Display.html?id=90635
     (reported by Alexandr Ciornii)

0.203 Jun 29, 2013
  - Automatically cleanup log files older than 30 days. Use 
    CPAN_SQLITE_LOG_FILES_CLEANUP environment variable to override.
     RT#76943: https://rt.cpan.org/Ticket/Update.html?id=76943
    (reported by Nigel Horne)
     See also RT#36411
  - Fixed POD

lib/CPAN/SQLite/META.pm  view on Meta::CPAN

sub reload {
  my ($self, %args) = @_;

  my $time         = $args{'time'} || time;
  my $force        = $args{force};
  my $db_name      = $CPAN::SQLite::db_name;
  my $db           = File::Spec->catfile($CPAN::Config->{cpan_home}, $db_name);
  my $journal_file = $db . '-journal';
  if (-e $journal_file) {
    $CPAN::FrontEnd->mywarn('Database locked - cannot update.');
    return;
  }
  my @args = ($^X, '-MCPAN::SQLite::META=setup,update,check', '-e');
  if (-e $db && -s _) {
    my $mtime_db    = (stat(_))[9];
    my $time_string = gmtime_string($mtime_db);
    $CPAN::FrontEnd->myprint("Database was generated on $time_string\n");

    # Check for status, force update if it fails
    if (system(@args, 'check')) {