Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

31 lines (23 sloc) 0.667 kB
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";
Jump to Line
Something went wrong with that request. Please try again.