This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix a thinko in filtering excluded module files
authorFlorian Ragwitz <rafl@debian.org>
Wed, 6 Jul 2011 14:54:06 +0000 (16:54 +0200)
committerFlorian Ragwitz <rafl@debian.org>
Wed, 6 Jul 2011 15:35:11 +0000 (17:35 +0200)
If we got a regexp ref, use it as it. Otherwise quote the string in a regexp.

Porting/Maintainers.pm

index 7969af7..6c5b8c2 100644 (file)
@@ -22,7 +22,7 @@ use vars qw(@ISA @EXPORT_OK $VERSION);
                show_results process_options files_to_modules
         finish_tap_output
                reload_manifest);
                show_results process_options files_to_modules
         finish_tap_output
                reload_manifest);
-$VERSION = 0.05;
+$VERSION = 0.06;
 
 require Exporter;
 
 
 require Exporter;
 
@@ -94,7 +94,7 @@ sub filter_excluded {
        unless my $excluded = $Modules{$m}{EXCLUDED};
 
     my ($pat) = map { qr/$_/ } join '|' => map {
        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;
     } @{ $excluded };
 
     return grep { $_ !~ $pat } @files;