This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't filter out non-existent Maintainers.pl entries
authorFlorian Ragwitz <rafl@debian.org>
Thu, 7 Jul 2011 13:42:26 +0000 (15:42 +0200)
committerFlorian Ragwitz <rafl@debian.org>
Thu, 7 Jul 2011 13:55:03 +0000 (15:55 +0200)
Porting/Maintainers.pm

index d4bd4a8..f1016b4 100644 (file)
@@ -81,9 +81,11 @@ sub expand_glob {
                         }, $_);
                    @files;
                }
+           # Not a glob, but doesn't exist
+           : $_ !~ /[*?{]/ ? $_
            # The rest are globbable patterns; expand the glob, then
            # recursively perform directory expansion on any results
-           : expand_glob(grep -e $_,glob($_))
+           : expand_glob(glob($_))
            } @_;
 }