oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix a problem with bad tests and bad code in globbed Pluggable excludes.

Browse source
This commit is contained in:
Colin Kuskie 2009-11-17 23:33:44 -08:00
parent 77389ea60f
commit cc84994ea7
2 changed files with 14 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Pluggable.pm
View file

@ -110,9 +110,10 @@ sub find {
@modulesHash{ @modules } = ( 1 ) x @modules;
delete @modulesHash{ @{ $options->{exclude} } };
@modules = keys %modulesHash;
my @excludePatterns = map { s/(?<!\.)\*/.*/g; $_; } grep { /\*/ } @modules;
my @excludePatterns = map { s/(?<!\.)\*/.*/g; $_; } grep { /\*/ } @{ $options->{exclude} };
if (@excludePatterns) {
my $pattern = join q{|}, @excludePatterns;
warn $pattern;
my $exclusions = qr/$pattern/;
@modules = grep { ! m/$exclusions/ } @modules;
}