unless ($name =~ /^([^-]+)/) {
error 'Wrong distribution name -- aborting';
return 0;
}
$stat->src('mirror://cpan/modules/by-module/' . $1 . '/' . $mod->package);
unless ($name =~ /^([^-]+)/) {
error 'Wrong distribution name -- aborting';
return 0;
}
$stat->src('mirror://cpan/modules/by-module/' . $1 . '/' . $mod->package);