diff options
| author | Florian Ragwitz <rafl@debian.org> | 2011-07-06 17:05:21 +0200 |
|---|---|---|
| committer | Florian Ragwitz <rafl@debian.org> | 2011-07-06 17:35:11 +0200 |
| commit | d77c669d1daa31a301a4f33a064b0abd5294156c (patch) | |
| tree | 7baae62a92eb1ca0638b3926611db7bd32cf24c9 /Porting/Maintainers.pm | |
| parent | 394fdf77c71953b5f4ea5c58b8f1ad27f1f0a14b (diff) | |
| download | perl-d77c669d1daa31a301a4f33a064b0abd5294156c.tar.gz | |
Plain scalars are supposed to be literal filenames
Anchor them accordingly.
Diffstat (limited to 'Porting/Maintainers.pm')
| -rw-r--r-- | Porting/Maintainers.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Porting/Maintainers.pm b/Porting/Maintainers.pm index 6c5b8c256e..d4bd4a87c7 100644 --- a/Porting/Maintainers.pm +++ b/Porting/Maintainers.pm @@ -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/\b\Q$_\E$/ } @{ $excluded }; return grep { $_ !~ $pat } @files; |