CC: | "aaron [...] aarontrevena.co.uk" <aaron [...] aarontrevena.co.uk> |
Subject: | Need a way to skip local modules being used |
Date: | Wed, 5 Dec 2018 13:58:43 +0000 |
To: | "bug-Test-CPANfile [...] rt.cpan.org" <bug-Test-CPANfile [...] rt.cpan.org> |
From: | "aaron.trevena [...] godaddy.com" <aaron.trevena [...] godaddy.com> |
manual changes I've applied in a local version :
skip argument is arrayref of qr//
sub cpanfile_has_all_used_modules {
..
my $skip_regexps = $args{skip};
..
for my $module (sort $req->required_modules) {
if ($skip_regexps) {
my $skip = 0;
foreach my $regexp (@$skip_regexps) {
if ( $module =~ /$regexp/ ) {
warn "skipping module $module";
$skip++; last;
}
}
next if ($skip);
}
....