Fix a thinko in filtering excluded module files

If we got a regexp ref, use it as it. Otherwise quote the string in a regexp.
aKhadiemik · Jul 6, 2011 · 394fdf7 · 394fdf7
1 parent 8b2227e
commit 394fdf7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Porting/Maintainers.pm b/Porting/Maintainers.pm
@@ -22,7 +22,7 @@ use vars qw(@ISA @EXPORT_OK $VERSION);
 		show_results process_options files_to_modules
         finish_tap_output
 		reload_manifest);
-$VERSION = 0.05;
+$VERSION = 0.06;
 
 require Exporter;
 
@@ -94,7 +94,7 @@ sub filter_excluded {
 	unless my $excluded = $Modules{$m}{EXCLUDED};
 
     my ($pat) = map { qr/$_/ } join '|' => map {
-	ref $_ ? qr/\Q$_\E/ : $_
+	ref $_ ? $_ : qr/\Q$_\E/
     } @{ $excluded };
 
     return grep { $_ !~ $pat } @files;