Skip to content

HTTPS clone URL

Subversion checkout URL

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

Cannot retrieve contributors at this time

31 lines (23 sloc) 0.667 kB
#!/usr/bin/perl
=pod
remove everything from distmtimes that prevents mldistwatch from indexing.
I'm using it to study the outcome of the new version-enhanced mldistwatch.
=cut
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;
$sth->execute($prefix);
}
print "\n";
Jump to Line
Something went wrong with that request. Please try again.