Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
31 lines (23 sloc) 667 Bytes
remove everything from distmtimes that prevents mldistwatch from indexing.
I'm using it to study the outcome of the new version-enhanced mldistwatch.
use strict;
use warnings;
use lib "lib", "privatelib";
use PAUSE;
use Parse::CPAN::Packages;
my $dbh = PAUSE::dbh;
my $sth = $dbh->prepare("delete from distmtimes where dist=?");
my $p = Parse::CPAN::Packages->
new("/home/ftp/pub/PAUSE/modules/02packages.details.txt-20051208.gz") or die;
$| = 1;
my $i;
for my $d ($p->latest_distributions){
my $prefix = $d->prefix;
# warn "sharpening prefix[$prefix]\n";
print "." unless ++$i % 32;
print "\n";
Something went wrong with that request. Please try again.